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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPHENT EORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EXECUTIVE, PROCESS CREATION SYSTEM SERVICE 
ABSTRACT 


ACT: 
PROCSTRT CONTAINS THE CODE NECE 
OF A PROCESS WHICH MUST BE EXEC 


SSARY TO CONCLUDE THE CREATION 
UTED IN THE CONTEXT OF THAT PROCESS. 


; ENVIRONMENT: 
MODE=KERNEL, EXECUTING IN CONTEXT OF NEW PROCESS 


> AUTHOR: R. 1. HUSTVEDT , CREATION DATE: 27-DEC-76 
: MODIFIED BY: 

: v03-002 RASO332 Ron Schaefer 14-Sep-1984 
; Check for RMS$_BUSY status in the RMS exit handler 
3 sO as to prevent an infinite loop if the handler 

: has interrupted RMS rundown badly. In that case, 


give up on trying to do rundown cleanly. 
lso, change the rundown type to do a full PPF rundown. 


V04-001 JWT0195 Jim Teague 11-Sep-1984 
eplace RMS exec mode exit handler for proper rundown 
of single-image processes. 


v03-043 LJK0288 Lawrence J. Kenah 9-Aug-1984 
The AUTHPRI cell now exists in both the PCB and the PHD. 


V03-042 ACG0440 Andrew C. Goldstein, 24-Jul-1984 10:45 
Add ref count field to ORB 
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V03-041 HHO040 


Hai Huang 19-Jul-1984 
Add routine EXESCRE_GTABLE. 


Oooo 
Oooo 


60 
61 
86 v03-040 LMP0275 L. Mark Pilant, 12-Jul-1984 20:14 
6 Initialize the ACL info in the ORB to be a null descriptor 
64 List epiner than an empty queue. This avoids the overhead 
65 of lock ng and unlocking the ACL mutex, only to find out 
6¢ that the ACL was empty. 
28 V03-039 RASO319 Ron Schaefer 29-Jun-1984 
8 Initialize the logical name table name translation 
i cache queue to empty. 
Le v03-038 LJK0272 Lawrence J. Kenah 10-Apr-1984 
7 Initialize VECSET array at the same time that the VECRESET 
if array is set up. 
7 V03-037 MHBO121 Mark Greshel | 99-Apr-1984 
7 Move new spawn CLI information to P1 space. 

v03-036 TMKO010 Todd M. Katz 27-Mar-1984 


Modify the logical name system services to make use of the 
updated internal protection checking mechanisms. What this 
involves is replacing the CHIP protection template in the 
templates for the group and job-wide logical name table with 
a template for a quad-word a sgned Object Rights Block, and 
making sure that the appropriate fields within the co7ect Rights 
blocks are initialized when group and job-wide logica 

tables are created. 


v03-035 wMC0007 Wayne Cardoza 21-Mar-1984 
Create the default image 1/0 segment. 


v03-034 TMKO009 Todd M. Katz 07-Mar-1984 
Add a hash code field, LNMX$W_HASH, to every translation block 
of every logical name and logical name table template defined. 
This hash code field will be used in an optimization of logical 
name table name processing. 


v03-033 TMKO008 Todd M. Katz 17-F eb-1984 
Fix alignment problems with LNMSGROUP and LNM$JOB introduced 
by one of the two logical name table alignment bug fixes 
below. This is done by defining the symbols GROUP_XEND_SIZE 
and JOB_XEND_SIZE. These two oyeneis represent the actual 
amount of storage utilized by LNMS$GROUP and LNM$JOB 
respectively while the two symbols GRovr Site and JOB_SIZE 
represent the amount of storage actually allocated for these 
pogices names. These two new symbols are needed by the PROCSTRT 
code that constructs the equivalence strings for these logical 
names. This code depends upon knowledge of the actual qaouns of 
storage, allocated to the logical names, which is utilized by 
the logical names. 
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LY00b8 Larry Yetto 
Fix alignment of logical name tables 
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v03-031 LY00b6 Larry Vette 16-FEB-1984 14:21 
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Fix alignment of logical name tables 
wMC0006 Weyne Cardoza 12-Jan-1983 
Create DZRO space for XQP, CRF no Longer an option. 


TMKO007 Todd M. Rote 26-Jan-1984 

Fix a bug introduced in TMKO006. In EXESCRE_JGTABLE, if an 

bee den group table is found when an attempt is made to 
create-if a new group table, then the paged pool for what would 
have soceus a new gro logical name table must be deleted. This 
Was not being done. This resulted in multiple group tables with 
identical names, and had the further undesirable affect of 
Spuetng paged pool to disappear over time as more and more of 
these duplicate group logical name tables were created as a 
by-product of process creation. 


LJK0258 Lawrence 4 Kenah 18-Jan-1984 
Fix bug introduced in LUK0257. Save R4 and R5 before they 
are destroyed by a MOVCS instruction. 


LJK0257 Lawrence J. Kenah 28-Dec-1983 
Add supgert for longer text strings in the PQB. Fix error 
paths. Add initialization code for P1 lookaside List. 


$HZ0001 Stephen H. Zalewski 27-Dec-1983 
Remove RMS executive mode exit handler. 


TMKO0006 Todd M. Katz 10-Nov-1983 

Optimize the logical name and logical name table creations that 
are required to be done at process creation time. This is done 
by replacing all SCRELNT and SCRELNM system service calls with 
the corresponding code that hand constructs the Lopicet name 
blocks and oversees their insertion into the overall logical 
name structure. In addition, group Logical name tables will no 
longer be created for sub-processes. As in the case of the 
joouiee logical name table, it will be assumed that the group 
ogical name table for a sub-process already exists. 


TMKOO0S Todd M. Katz 12-0c t-1983 
f the process being created is not a sub-process, create the 
ob-wide logical name table. 


TMKO004 Todd M. Katz 26-Sep-1983 

Change the protection on the group logical name table to 
SYSTEM:RWED OWNER: GROUP:R WORLD: so that processes with system 
access rights can access and modify any group table. 


RASO181 Ron Schaefer 5-Sep-1983 
Convert creation of SYSSINPUT, SYSSOUTPUT, SYSSERROR, 
SYSSDISK and TT logical names to use SCRELNM. 


TMKO003 Todd M. Katz 22-Aug-1983 

Create the Group Logical Name Table with the protection mask 

G:R as pert of the changes being made to the logical n table 
procecs on mechanism to provide for yquerde compatibility 
etween V3 and V4. In addition, specify the GROUP and NO_ALIAS 


4 
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attributes while creating the Group Logical Name Table so that 
the fapie can not be aliased, and so it will get marked 
specially as a Group Logical Name Table. 


There is ng need to perform ony, pretessten checking of 
v 


Add CHIP protection to logical name structures. 
Currently only SOGW protection is supported. 


pro ess-private logical name tables; therefore, process-private 
ogical name tables are no longer created with CHIP protection 
structures. Remove the CHIP protection structure from the 
process space logical name directory template as well as 
0 any fixing up of this CHIP which was being done as part of 
° process creation. 
v03-020 waco000s Wayne Cardoza 02-Jul-1983 
assorted performance improvements. 
v03-019 RASO176 Ron Schaefer 28-Jul-1983 
Fix group logical name table creation to be in octal; 
+ and clean up the code somewhat. 
00 vO3-018 LJK0221 Lawrence J. Kenah 55-Jul-1983 
4 Initialize Listheads for image descriptor blocks. 
090 VO3-017 DMW4061 DMWalp 23-Jun-1983 
B80 Change $xxLNM value parameters to be by reference 
B88 VO3-016 DMW4048 DMWalp 13-Jun-1983 
0 Fix proctection problems with new logical name structures. 
000 Add execmode entry point to IMGDMP. 
6 v03-015 ADE9005 Alan D. F\érigee 31-May-1983 
0 Make BSBW to MMGSIMGRESET a JSB. 
v03-014 RASO158 Ron Schaefer 23-May-1983 
Fix quota of LNMSPROCESS DIRECTORY. 
0 v03-103 wMc0003 Wayne Cardoza 10-May-1983 
Change XQP merge to use global sections rather than IMGACT. 
v03-012 TMKO0002 Todd M. Katz 26-Apr-1983 
proete the following logical name structures at process creation 
me: 
1. LNMSPROCESS_TABLE. ; 
¢° LNMSGROUP_xxxxxxxx (The Group Logical Name Table). 
- LNMSGROUP, 
4. LNMSPROCESS. 
Change the name of LNTSPROCESS_DIRECTORY to 
LNMSPROCESS DIRECTORY. 
v03-011 CD 3 Christian D. Saether 20-A 


$000 $ or~ 1983 
Fix to V03-009. Don't merge xqp if EXESV_INIT is clear. 


v03-010 TMKOO01 Todd M. Katz 14-Apr-1983 
Make the following changes to the setting up of the process 
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8 : directory logical name table: 
: - Make the table a kernel mode access table. 
5 - The address of the process directory table's table header 
3 is placed in oy L_TABLE. 
4; . The bit LNMTHSV_DIRECTORY is set in LNMTHS$B_FLAGS. 
5 3 . The field LNMTHSL_LOGNAM is eliminated. 
> : v03-009 ¢dS0002 Christian D. Saether 12-Apr-1983 
9 8 : Always merge flibxqp. Check for xqpmerge errors. 
09 40 : v03-008 wMc0002 Wayne Cardoza 01-Apr-1983 
2 : Add second half of IMGDMP. 
$0 rk : v03-007 wMC0001 Wayne Cardoza 14-Mar-1983 
38 rf: : Add image dump interface. 
00 46 ; V03-006 ACGO305 Andrew C. Goldstein 16-Dec-1982 14:03 
900 a4 ; Get hibernate flag correctly in EXESPROCIMGACT entry 
9000 49 ; v03-005 ¢p$0001 Christian D. Saether 16-Dec-1982 
8058 39 ; Add routine to merge F11BXQP into P1 space. 
9000 3g : V03-004 pMwW4017 DMWalp 15-Dec-1982 
000 53 ; Added creation of new Logical name hash table and 
464 22 5 logical name process directory 
0000 36 : V03-003 JwHO117 jeffrey W. Horn 01-Nov-1982 
0000 5 Make the sizes of the RMS Process 10 Segment and the 
000 28 3 Process Allocation Region controlable via SYSGEN 
44 23 : parameters. 
000 61 : v03-002 KDM0002 Kathieen D. Morse 28-Jun-1982 
44 6¢ 3 Add SDYNDEF. 
000 65 ; 
0000 64 ;-- 
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; INCLUDE FILES: 
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16-SE 
DECL if: -SE 4 SYS.SRCIPROCSTRT.MAR; 3 (2) 
4 ASSUME LNMTHSL_SIBLING*4, EQ, LNMTHSL_QTABLE 
5 ASSUME LNMTHSL“QTABLE+4, EQ, LNMTHSL-BYTESLM 
: ASSUME LNMTHSL“BYTESLM+4, EQ, LNMTHSL~BYTES 
ASSUME ORBSL_OWNER, EQ, 0 
ASSUME ORBSL-OWNER+4 EQ, ORBSL_ACL_MUTEX 
ASSUME ORBSL ACL TEX+4, EQ, ORBSWTSIZE 
1 ASSUME ORBSW-SIZE+2, EQ, ORBSB-TYPE 
0 ‘ ASSUME ORBS “TYPE+ EQ, ORBSB-FLAGS 
0 ASSUME ORB$B-FLAGS+$ EQ, ORB$W-REF COUNT 
0 4 ASSUME ORBSW-REFCOUNT+2, £0, ORBSQ-MODE PROT 
00 5 ASSUME ORBSO“MODE PROT+6, EQ, ORBSL-SYS_PROT 
: ASSUME ORBSL-SYS_PROT+4, EQ; ORBSL~OWN~PROT 
00 ASSUME ORBSL-OWN-PROT+4, EQ, ORBSL-GRP-PROT 
900 : ASSUME ORBSL-GRP-PROT+4, EQ. ORBSL-WOR-PROT 
99 ASSUME ORBSL-WORTPROT+4. EQ. ORBSL~ACL~COUNT 
00 40 ASSUME ORBSL-ACL =COUNT +4, EQ, ORBSL-ACL-DESC 
0000 341 ASSUME ORBSL"ACL-DESC+4, EQ, ORBSR- MIN CLASS 
0000 4¢ ASSUME ORBSR-MIN~ CLASS +ORBSS_ *MIN_CLA 
0000 34 ORBSR aAx _CLASS 
000 344 ASSUME ORBSR_MAX -CLASS®ORBSS “MAX_ CLASS 
000 345 Q> 6ORBSK PENGTH 
000 346 
9000 47; 
00 48 : MACROS: 
9000 49 : 
000 50 
0000 351 -MACRO CRELNM,XLATION, XLATION_ATTR,LNMX,LNMB 
0000 38 BSBW CRELNM 
0000 35 .WORD <XLATION> 
0000 354 “WORD <XLATION_ATTR> 
0000 355 "WORD <LNMX> 
0000 2$ ~WORD <LNMB> 
9000 5 “END —s CRELNM 
900 58 
000 359 ; 
0000 360 ; EQUATED SYMBOLS: 
$83 ae) 
00000000 800 8 NXTKVEC= JOFFSET TO NEXT FREE KERNEL VECTOR 
00000100 0000 364 NXTEVEC=256 [OFFSET TO NEXT FREE EXEC VECTOR 
00000200 0000 365 NXTRVEC= iF [OFFSET TO NEXT FREE RUNDWN VECTOR 
00000300 0000 366 NXTMVEC=76 [OFFSET TO NEXT MESSAGE VECTO 
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i : OWN STORAGE: 


000 -PSECT YYPROCSTRT,5 
EXESGQ_SYSDISK:: 
«AS 


49 44 24 53 59 53 taeda) yt CID /SYS$DISK/ 


WNAA NANI WINN 


oNNN ON 


OoOCON OSU 


UR aS SOTO 


; PAGED PSECT 
; DESCRIPTOR FU. .YSSDISK 


; DEFAULT IMAGE FILE NAME 


Page 8 
. (4) 


: CHARS FOR OCTAL (HEX) => ASCII CONVS 


AND NAMES CREATED WITHIN PROCSTRT. 


; Tetons gt DIRECTORY TEMPLATE 


1 DEFDESC: 
45 58 45 2€ 00000018'010E0000' i eASCID /.EXE/ 
42 41 39 38 37 36 35 34 33 i 31 9 3h CHARS: .ASCII /0123456789ABCDEF/ 
46 45 44 4 0 
a? 
09 : 5 3; CATCH ALL HANDLER FATAL CONDITION MESSAGE SUFFIX. 
O2c 385 ° 
66 20 74 69 78 65 20 65 67 61 6D 69 83 C 86 SUFFIX: .ASCIZ /image exit forced./ 
00 2E 64 65 63 72 6F 0038 
003F 87 
003F Hy 3 
003F ; STRINGS FOR IMAGE DUMP MERGE. 
poet 90 ; 
003F 91 
tH 8 DEFAULTNAMDSC: 
49 4C 24 53 59 53 90090087" 2°01 069000" O3F 9 -ASCID /SYSSLIBRARY: .EXE/ 
45 58 45 2E 3 BaD 
005 394 IMGDMPNAM: 
50 4D 44 47 4D 49 0000005F '010E0000' 44 56 -ASCID /IMGDMP/ 
065 97; 
abs 98 ; TEMPLATES FOR THE LOGICAL NAME TABLES 
0065 99 ; 
065 400 
065 401 ALIGN QUAD 
068 rt PROC_DIR: 
00000000 0068 40 - LONG 
0000000 3 404 - LON 
0058° 00 405 «WORD PROC_DIR_SIZE 
4 7 $06 BYTE ad 
0° 7 42 ~BYTE PSLSC_KERNEL 
000000 7 408 -LONG 0 
19 4 409 -BYTE LNMBSM_NO ALIAS!~ 
7 410 LNMBSM_ U. LEt- 
79s «4111 NMBSM-NODELETE ; 
53 53 45 43 4F 52 29 24 4D 3 4C ge" 79 = 412 -ASCIC NRSPROCESS DIRECTORY" ; 
59 52 4F 54 43 45 52 49 44 SF 8 
15 9 
, §66t3 
F 414 ~-BYTE LNMXSM_TERMINAL 
9 415 BYTE NMXSC" TABLE 
00 9 218 - WORD 
93 41 “BYTE LNMTHSK_LENGTH 
94 418 


; FORWARD LINK 

; BACK LINK 

: SIZE OF STRUCTURE 

; TYPE OF STRUCTURE 

: KERNEL ACCESS MODE 

; CONTAINING TABLE HEADER ADDRESS 
: NO ALIAS ALLOWED 

; THIS IS_A aot 

: ».. THAT CANNOT BE DEL Atty 

: DIRECTORY NAME AS COUNTED STRING 
; TERMINAL TRANSLATION 

; SPECIAL TABLE TRANSLATION INDEX 
; TRANSLATION HASH COD 

; SIZE OF TABLE HEADER BLOCK 


B 10 
ARTUP AND INITIALIZATION 


PROCSTRT - PROCESS ST 16-SEP 4 AX/VMS Macro V04-00 Page 9 
fives DECLARATIONS 1ergee =] Sas 95:99:43 Peeves Mace WO4-00 3 * uh 
000000 419 PROC_DIR.LNMTH = . = PROC_DIR 
4 “BYTE LNMTHSM_ DIRECTORY ; TABLE IS FOR A DIRECTORY 
000000 é “LONG : ADDRESS OF HASH TABLE 
00 é “CONG : ADDRESS OF OBJECT RIGHTS BLOCK 
0000 é "CONG : ADDRESS OF CONTAINING LNMB BLOCK 
0000 é “CONG : ADDRESS OF PARENT TABLE 
0000 é “CONG i ADDRESS OF CHILD TABLE 
00000 é “CONG : ADDRESS OF SIBLING TABLE 
90000 é “CONG : ADDRESS OF TABLE HOLDING QUOTA 
FRFFFFFF 4 «LONG AX 7FFFFFFF : tN ITIAL QUOTA ( POSITIVE INFINITY ) 
TFFFFFFF : LONG “X7FFEFFFF 3 REMAINING QUOTA ( POSITIVE INFINITY ) 
04 2 2 th * aUAD XEND ; LAST TRANSLATION 
00000058 438 PROC_DIR-SIZE = . = PROCDIR 
0000005 435 PROC_TABLE = . = PROC_DIR ; LNMSPROCESS_ TABLE TEMPLATE 
atta é “LONG” 0 : FORWARD LINR 
000000 r "CONG 0 : BACK LINK 
0050" é “WORD PROC, TABLE, SIZE i SIZE GF STRUCTURE 
40 é "BYTE DYNST_LN i TYPE OF STRUCTURE 
00 é "BYTE PSLSCTKERNEL : KERNEL ACCESS MODE 
00000000 4 ~ LONG 0 ; CONTAINING TABLE HEADER ADDRESS 
09 : “BYTE —LNMBSM_NO_ALIAS!- i NON-ALLASABLE 
53 53 45 43 GF 52 4E 4¢ 90! r ascic MUNRSPROCESS. TABLE | TABLECHAME AS COUNTED STRING 
ne 445 
0g 446 -BYTE LNMX$M_ TERMINAL ; TERMINAL TRANSLATION 
8 447 "BYTE LNMXSC"TABLE : SPECIAL TABLE TRANSLATION INDEX 
0000 448 "WORD : TRANSLATION HASH 
25 449 "BYTE LNMTHSK_LENGTH : SIZE OF TABLE HEADER BLOCK 
00000080 431 PROC_TABLE_LNMTH = . - PROC_DIR 
00 452 “BYTE 0 ; FLAGS BYTE 
00000000 45 LONG 0 i ADDRESS OF HASH TABLE 
00000000 454 "CONG 0 : ADDRESS OF OBJECT RIGHTS BLOCK 
00000000 455 "CONGO i ADDRESS OF CONTAINING LNMB BLOCK 
90000000 456 "CONG 0 : ADDRESS OF PARENT TABLE 
0000000 457 LONG 0 ; ADDRESS OF CHILD T 
00000000 458 CONG 0 {ADDRESS OF SIBLING TABLE 
00000000 459 LONG 9 i ADDRESS OF TABLE HOLDING QUOTA 
90000000 460 CONG : INITIAL QUOTA ( POOLED ) 
000000 461 CONG 0 t REMAINING QUOTA ( POOLED ) 
04 46s 4 ti * QUAD. XEND ; LAST TRANSLATION 
00000050 465 PROC _TABLE-SIZE = . - PROC_DIR - PROC_TABLE 
467 
0000008 468 PROCESS = . - PROC_DIR ; LNMSPROCESS TEMPLATE 
90900000 469 “LONG i FORWARD LINK 
000000 470 “CON : BACK LINK 
0038" 471 “WORD PROCESS, SIZE : SIZE OF STRUCTURE 
i 472 "BYTE DYNSC_LAM : TYPE OF STRUCTURE 
00 47 "BYTE PSLSCTKERNEL : KERNEL ACCESS MODE 
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C "“LNMSPROCESS'’ 

NMX$M_TERMINAL 
C "“LNMSPROCESS_ TABLE" 
BYTE LNMXSM_XEND 
“ALIGN QU 
PROCESS_SIZE = . = PROC_DIR - PROCESS 
GROUP = . = PROC_DIR 

LONG 


-WORD GROUP_SIZE 
- PSL$C-KERNEL 


oOovoace 
< 
z 


. 0 

~ASCIC ‘“'LNMSGROUP"' 
P LNMXS$M_ TERMINAL 
-BYTE 0 

«WORD 0 

eASCIC “'LNMSGROUP_xxxxxx"" 


~BYTE __ LNMX$M_XEND 
taal cna fase s,.° 


; U 
GROUP_SIZE = . - PROC_DIR - GROUP 
JOB = . = PROC_DIR 

. LONG 
JOB. SIZE 


“BYTE DYNSC_LNM 
“BYTE PSLSC"KERNEL 


co 
Oo 
z 
a 
oo 


TASCIC "LNM$JOB" 


PROC_DIR - GROUP 
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5 SYSSERROR_SIZE = . - PROC_DIR = SYSSERROR 
6 $ SYSS$DISK oe PROC_DIR ; SYSSDISK TEMPLATE 
§ °LON : BACK LINK 
PHP pigmnsegsize HE Ercan 
616 “BYTE PSLSCEXEC : EXECUTIVE ACCESS MODE 
61 “LONG : CONTAINING TABLE HEADER ADDRESS 
614 “BYTE 0 : FLAGS BYTE 
615 “ASCIC "'SYSSDISK" t LOGICAL NAME AS COUNTED STRING 
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ci Sree 6? Oe ; TRANSLATION ATTRIBUTES 
gis BYTE + TRANSLATION INDEX IS 0 
620 “WORD : TRANSLATION HASH CODE 
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-BYTE — LNMXSM_TERMINAL 
“BYTE LNMXSC"TABLE 
WORD 
“BYTE LNMTHSK_LENGTH 
GROUP_TABLE_LNMTH = . = GROUP_TABLE 
-BYTE LNMTHISR _SHARERBLET= 
THSM~ GROUP 
LONG 
LONG 
LONG 
- ADDRESS LNM_SYSTEM_DIR_LNMTH 
. LONG 
- ADDRESS LNM_SYSTEM_DIR_LNMTH 
“LONG 
.BYTE — LNMXSM_XEND 
.ALIGN QUAD 
GROUP_TABLE ORB = . - GROUP_TABLE 
-LONG 0 
“WORD 1, 0 
“WORD GROUP_TABLE_ORB_S1Z 
“BYTE DYNSC~ORB 
BYTE 
LONG 
QUAD 
“LONG *x00000000 
“LONG “*X0000000F 
“LONG “*X0000000E 
“LONG  “X0000000F 
;LONG 0,0 
“BYTE OCORBSS_MIN_CLASS) 
.BYTE OCORBS$S_MAX_CLASS) 


ALIGN 5 
GROUP _ TABLE -ORB is ® 


GROUP_TABLE-SIZE = . - “GROUP_T TABLE 


JOB_TABLE = . - ene teas 
-LONG 
“WORD JOB TABLE SIZE 
BYTE DY YNSC_LNM™ 


-BYT PSL$C" KERNEL 
-ADDRESS LNM SYSTEM. DIR qt NATH 
-BYTE ote i. WO AACIA SsT- 


-ASCIC HANRS JOB Kien 


18-SEP-1986 22:92:92 


AX/VMS Macro V04-00 P 
SYS.SRCJPRO ocst RT.MAR; 3 ea 
TERMINAL TRANSLATION 
SPECIAL TABLE TRANSLATION INDEX 
TRANSLATION HASH C 
SIZE OF TABLE HEADER BLOCK 


A GROUP TABL 
ADD 


LAST TRANSLATION 


NUMBER + 0 MEMBER NUMBER 
ZED ACL MUTEX 
OBJECT RIGHTS BLOCK 


AS YET 
Ss be _ & REF COUNT 
DOES NOT HAVE AN ACCESS MODE 
PR ore TION IS RWED 


ITIAL ACL 
MINIMUM CLASSIFICATION MASK 
MAXIMUM CLASSIFICATION MASK 


= GROUP_TABLE - GROUP_TABLE_ORB 


LNMSJOB_xxxxxxxx TEMPLATE 
FORWARD LINK 
BACK LINK 
size OF STRUCTURE 
YPE OF STRUCTUR 
LERNEL ACCESS MODE 
CONTAINING TABLE HEADER ADDRESS 
‘—r LIASABLE 


A TABLE 
TABLE NAME AS COUNTED STRING 
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PROCSTRT = PROCESS STARTUP AND INITIALIZATION 16-SEP-1984 01:00: AX/VMS Macro V04-00 Page 16 
ivan DECLARATIONS 18-S6-1 382 9:99:43 LEYS SRCIPROCSTRT MAR: 3 ve 
4 9 -BYTE — LNMXSM_TERMINAL ; TERMINAL TRANSLATION 
4 ‘BYT NMX$C "TABLE + SPECIAL TABLE TRANSLATION INDEX 
4 WORD : TRANSLATION HASH COD 
4 34 “BYTE LNMTHSK_LENGTH : SIZE OF TABLE HEADER BLOCK 
4 636 JOB_TABLE_LNMTH = . = GROUP_TABLE 
4? 69 -BYTE —LNMTHSM_SHAREABLE : SHAREABLE TABLE 
48 98 LONG : ADDRESS OF HASH TABLE 
4 9 “LONG : ADDRESS OF OBJECT RIGHTS BLOCK 
0 “LONG : ADDRESS OF CONTAINING LNMB BLOCK 
701 -ADDRESS LNM_SYSTEM_DIR_LNMTH : ADDRESS OF PARENT TABLE 
8 f ; LONG + ADDRESS OF CHILD TABLE 
c “LONG ; ADDRESS OF SIBLING TABLE 
66 704 .ADDRESS LNM_SYSTEM_DIR_LNMTH : ADDRESS OF TABLE HOLDING QUOTA 
64 705 LONG : INITIAL QUOTA 
68 f : > LONG t REMAINING QUOTA 
6¢ 108 -BYTE —LNMXSM_XEND : LAST TRANSLATION 
6p 710 .ALIGN QUAD 
0 711 JOB_TABLE_ORB = , = GROUP_TABLE 
7 ar .CONG §66 : OWNER OF JOB TABLE 
7% «71 “WORD =1, 0 : INITIALIZED ACL MUTEX 
78 «714 “WORD JOB_TABLE_ORB_SIZ : SIZE OF OBJECT RIGHTS BLOCK 
7A 715 “BYTE DYNSC_ORB : BLOCK TYPE 
7 ri “BYTE : NOTE NO ACL AS YET 
7 «O71 LONG : ZERO RESERVED WORD & REF COU 
80 718 QUAD : OBJECT DOES NOT HAVE AN ACCESS MODE 
a8 719 “LONG *x00000000 : SYSTEM PROTECTION IS RWED 
720 [LONG *x00000000 : OWNER PROTECTION IS RWED 
721 “LONG  *X0000000F : GROUP PROTECTION 
7 : “LONG “*X0000000F + WORLD PROTECTION 
7 LONG $ NULL INITIAL ACL 
726 BYTE OCORBS$S_MIN_CLASS) : MINIMUM CLASSIFICATION MASK 
725 -BYTE OCORBSS_MAX_CLASS) ; MAXIMUM CLASSIFICATION MASK 
7 é .ALIGN 5 
727 JOB_TABLE_ORB SIZ = . - GROUP_TABLE - JOB TABLE_ORB 
7 : JOB-TABLE-SIZE = . - GROUP TABLE - JOB. TABLE 
u SO_ALLOC_SIZE = . = GROUP_TABLE 
731 ; 
f g : OFFSETS FROM R6 USED BY THE IMAGE DUMP MERGE. 
734 ° 
735 SOFFSET 0,POSITIVE,<- 
7 : <.<<IMGACT$_NARGS+1>*4>>,- ; ARGUMENT LIST FOR SIMGACT CALL 
t <{MGACT_INADR,8>,- : INPUT ADDRESS RANGE TO MAP IMAGE AT 
8 <INGACTRETADA, 85, - : RET ADR RANGE WHERE IMAGE WAS MAPPED 
7 HDRBUF 7512>,= t IMAGE HEADER BUFFER FOR SIMGACT 
740 <PROCPRIV,8>.- t PROCESS DEFAULT PRIVILEGES 
261 <IMAGPRIV.8>.- : IMAGE PRIVILEGES 
4g <PHD_FLAGS,4>,- ; PROCESS HEADER FLAGS 
74 <JPI7PROC, 12>. : GETJPI LIST ITEM FOR PROCESS PRIVILEGES 
744 <JPI“IMAG,10>.- : GETJPI LIST ITEM FOR IMAGE PRIVILEGES 
745 <JPI“FLAG, 12>. : GETJPI LIST ITEM FOR FLAGS 


races bet 


OCESS STARTUP AND INITIALIZATION” 1o-SE0-1388 93:09:45 yA 
ET 
1Z 


4 <JPI_END,4>,< 
Hs Z 
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SR 
; ST TERMI 
<SCR ARTCHS12E,0>,- : RE 
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PROCSTRT = PROCESS STARTUP AND INITIALIZATION 16-SEP-1984 01:00: AX/VMS Macro V04-00 p 1 
vor-008 EXESPROCSTRT - STARTUP NEW PROCESS We=$Ep-198e Soisoiss LersVSachPRorstatonne;s © 28° 8, 
E .SBTTL EXESPROCSTRT = STARTUP NEW PROCESS 
E 3 ++ 
; 5 ; FUNCTIONAL DESCRIPTION: 
E 5 ; CALLING SEQUENCE: 
; : : NONE 
E fe : INPUT PARAMETERS: 
E fe) ; SCHSGL_CURPCB = POINTS TO PCB OF CURRENT PROCESS 
; § § , PCBSL_PQB - POINTER TO PROCESS QUOTA BLOCK 
FO Fea : IMPLICIT INPUTS: 
; £0? : IPL = IPLS_ASTDEL 
FO fe? > OUTPUT PARAMETERS: 
: £08 : NONE 
FO 776 > IMPLICIT OUTPUTS: 
EO 771; LOGICAL NAMES ARE DEFINED FOR ‘SYSSINPUT', ‘SYSSOUTPUT’, AND ‘SYSSERROR’ 
OBED ak : BASED ON THE STRINGS PASSED IN THE PROCESS QUOTA BLOCK. 
O8EO 77% ; COMPLETION CODES: 
St iy 
O8E0 oS : SIDE EFFECTS: 
O8E ore : NONE 
O8E 779 ; 
an 
ee 
Ha tea 3 The PQB address must be stored before any instruction that can cause a page 
SEO 785 ; fault. If a page fault occurs and the process is put into a resource wait 
EO 7 § 3 State, then the PQB address will be lost because the EFWM field, used to 
8 3 787 ; store the resource number, overlaps PCB$L_PQB. This forces the first 
E 788 ; two instructions into a nonpaged program Section. 
O8E 44 3 
0000 6 ia -PSECT AEXENONPAGED 
0 138 EXESPROCSTRT:: 3; STARTUP NEW PROCESS 
54  QO000000'EF oD 794 MOVL SCHSGL_CURPCB,R4 ; GET POINTER TO CURRENT PCB 
068 4C AG OD £32 MOVL PCBSL_PQB‘R4) ,R6 ; GET POINTER TO PROCESS QUOTA BLOCK 
008E0' GF 1 : £8 JMP G*EXE~PROCSTRE 3; CONTINUE IN PAGEABLE EXEC 
0000 3 a -PSECT YYPROCSTRT 
E 9 EXE_PROCSTRT: 
E § : NOTE: THERE CAN BE NO 1/0 TO A PROCESS CHANNEL BETWEEN HERE 
; Z 5 AND THE END OF THE NEW CHANNEL CREATION CODE. 
00000000 ' GF OO000000'GF OD E .* MOVL G*MMGSGL_RMSBASE ,G*CTLSGL_RMSBASE ; SET RMS DISPATCHER BASE 
00000000 ' GF iddiitd "GF 4 i § MOVL G*MMGS$GL~CTLBASVA,G*CTLSGC_CTLBASVA ; SET CTL BASE ADDRESS 
F 8 : INITIALIZE THE DISPATCH VECTORS. 
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PROCSTRT = PROCESS STARTUP A AND INITIALIZATION 16-SEP-1984 AX/VMS Macro v04-00 P 
fivee ty EXESPROCSTRT - STARTUP NEW PROCESS 1erge =] be 9b:99:33 PANEVRS Macro vOe-00 3 age 20, 
14 A ne gpa 66 MOVW  R1,PHDSW_WSAUTHEXT(RS) ; SET AUTHORIZED EXTENT 
5 A D ADDW RO.R2 : GET QUOTA 
18 A BO 09E 8 MOVW R2,PHDSW_ WSQUOTA(RS) + QUOTA VALUE 
OA A BO 09E MOVW OR “PHOS WS UTH(R5) ; AUTHORIZED VALUE 
AAS) 5 A 3E9 20 ADDW3 RO.R PNOSU. DFUSCNT(RS) + SAVE DEFAULT WORKING SET SIZE 
9EE ds ; THE AUTHPRI CELL EXISTS IN TWO PLACES. THE $SETPRI SYSTEM SERVICE USES 
9EE 873 : THE PCB CELL BUT THE PHD CELL MUST EXIST FOREVER BECAUSE THAT IS WHERE 
GEE es : THE JPL ITEM CODE BELIEVES THAT AUTHPRI IS LOCATED. 
BAG 2F AG 90 ODE 2 MOVB = PCBSB -PRIB(RG), pcass _AUTHPRI(R4) —;_ SET INITIAL PROCESS PRIORITY 
010¢ c3 FAG 90 O9F 7 MOVE PCBSB™PRIB(R4) PHDSB-AUTHPRI(R5) : ... IN BOTH PCB AND PHD 
D O9F 28 MOVQ § POBSQPRVMSK(R Paces PHD (R4) : SET PRIVILEGES FOR PROCESS 
90000000" 9F 66 7D O9FD 87 MOVa POBSQ~PRYMSK (R ) arc GQ_PROCPRIV : BOTH PERMANENT AND CURRENT 
66 7D OA04 0 MOVa § PQBSQ~PRVMSK(R G AUTHPRIV(RS) : AND AUTHORIZED MASKS 
00000000'SF 46 A6 90 OA09 1 MOVE POBSB"MSGMA MASK (ROS. Seer cee in MSGMASK : GET DEFAULT MESSAGE FLAGS 
00000000 ' 9F 00009000" EF 7D OA11 ; MOVa EXeSea SYSTIME ,@#CTL$GO_LOGIN + SAVE LOGIN TIM 
7E «54° «7D alc i MOV  —R4, (SP) : SAVE PCB AND PHD POINTERS 
AIF 5 ; MOVE MINIMUM AND MAXIMUM AUTHORIZED SECURITY CLEARANCE RECORDS INTO THE PHD. 
OA1F 886 : THE FOLLOWING ASSUME STATEMENTS GUARANTEE THAT WE CAN SAFELY PERFORM THIS 
OAIE 87 : WITH A SINGLE MOVC3 INSTRUCTION. 
OAIF 889 ASSUME PQBSS_MIN_CLASS EQ PHD$S_MIN_CLASS 
OAIF 890 ASSUME PQB$S-MAX~CLASS EQ PHD$S~MAX~CLASS 
OAIF 891 ASSUME POBSR~MAX~CLASS EQ <PQBSR_MIN_ CLASS + POBSS_MIN_CLASS> 
OAlt 9 ASSUME PHDSR-MAX~CLASS EQ <PHDSR™ “RIN: CLASS + PHDSS"MIN~CLASS> 
- 28 28 OAIF 94 MOVC3 B<POBSS HIN CLASS#POBSS_ MAX_CLASS>,- 
0114 3 oA ; 36 PHD$R-MIN~CLASS(R5) 
OA : 98 ; INITIALIZE LISTHEADS FOR DOUBLY LINKED LISTS USED BY IMAGE ACTIVATOR 
50 00000000" 9F 9 OA 6 900 MOVAB Q¥IACSGL_INAGE_LIST RO ; LIST OF ACTIVATED IMAGES 
0400 50 00 x 0 906 MOVL RO.4(RO) : .e. AND BLI 
50 00000000" 9F 9 A 4 904 MOVAB as TACSGL_ WORK_LIST,RO ; LIST it ra IN PROGRESS 
04 a0 50 00 OA} ne MOVL  RO.4(RO) t te. AND 
50 00000000'9F 9E OAs og MOVAB aM#IACSGL_ICBFL,RO ; ADDRESS OF ICB LOOKASIDE LIST 
60 DO OA4 30 MOVL RO,(RO) ~ : INITIALIZE FLINK 
04 A DO OASC 910 MOVL RO.4(RO) -.. AND BLINK 
Ad ah 
A 318 CREATE THE PAGES FOR THE CCB TABLE, PROCESS ALLOCATION REGION, AND DEFAULT 
AS 14: IMAGE 1/0 SEGMENT 
ne 12 3 
53 00000000" gt 3C re 19 MOVZWL G*SGNSGW_PCHANCNT,R3 —;_- PICK UP SYSGEN PARAM FOR # CHANS 
3 D6 OA 18 INCL ; ALLOW FOR WASTED CCB 
3 10 Ce OA59 91 MULL sof cBsc LENGTH,R3 : CONVERT TO # BYTES 
ay gggater gee Bp Janets ahines 
54  00000000'G 1 AGA 922 MOVZWL G*SGNSGW_CTLPAGES.R4 |; GET # PAGES FOR PROCESS ALL REGION 


MOVZWL G*SGNSGW_PCHANCNT ,@#CTL$GW_NMIOCH ; SET NUMBER OF CHANNELS 


NOTEC!S!!!): BOVE ASSIGNMENT nee BE DONE AT THE VERY END OF THIS 
ON OF CODE, AS THE CELL NMIOCH BEING eT IS AN 
Ne TO IOCSFFCHAN THAT THERE IS ACTUALLY A REAL 


L TABLE TO LOOK AT. 
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PROCSTRT = PROCESS STARTUP AND INITIALIZATION SEP-19 AX/VMS Macro V04-00 Page 21 PI 
five th EXESPROCSTRT = STARTUP NEW PROCESS 18: Hits gh: 99: $3 Heys” SRCIPROC CSTRT.MAR; 3 . @, vi 
54 99 7 a? 3 ASHL #9484 RG : CONVERT TO # BYTES 
54 A 4 ADDL R4-R : GET TOTAL # BYTES NEEDED SO FAR 
57 9000 00'GF AZ 5 MOVZWL G*SGNSGW_PIOPAGES,R7  : GET # PAGES FOR PIO SEGMENT 
5 3 ATF 6 ASHL #9,R7,R7 ; CONVERT TO NUMBER OF BYTES 
AB3 ADDL R7.R : GET TOTAL # BYTES NEEDED 
58 9000 00'GF ABS 8 MOVZWL G*SGNSGW_IMGIOCNT,R8 §: GET # PAGES FOR 110 SEGMENT 
5 9 A8D ASHL #9.R6,RB : CONVERT TO NUMBER OF BYTES 
8 ¢O 0a91 0 ADDL RB.R ; GET TOTAL # BYTES NEEDED 
55 QO000000°EF DE 0A94 9 MOVAL CTLS$GL_CTLBASVA,RS : GET POINTER TO ‘TOP’ OF P1 
7E «66 | C3 O0A9B 3 SUBLS #1, (R5),-(SP) ; ‘LAST’ PAGE IN P1 
7E ASE SUBL3. -R3, (R5) .=(SP) ; TOP. OF CREATED REGION 
2 7E 7E OAA 3 4 MOVAQ =(SP) Rd i ACE FOR RETADR 
00000000 i DD AAG 3 5 PUSHL #PSLSC_KERNEL +<PRTSC_ UREW va’ 7 ACCE ESS Ode AND PROTECTION 
08 AS F OAAE 9 3 PUSHAB 8(R2) ; ETADR ARRAY. 
Q DD OAB1 938 PUSHL #3 : ARGUMENT COUNT 
50 DO OAB3 939 VL $P.RO 
AB6 = «940 SCMKRNL_S = : CALL INTERNAL ENTRY POINT FOR SCRETVA 
OAB6 «= «941 ROUTIN = G*MMGSCRETVA,- 
OAB 4g ARGLST = (RO) 
0D 50 €9 OACS 9% BLBCOséR VABU UG : GET OUT ON ERROR 
08 A2 62 D1 OACB 944 CMPL = (R2) ,8(R2) : DID WE GET FULL REQUEST? 
07 12 OACC 945 BNEQ : NO, ERROR O 
OC A2 04 A201 OAC 946 CMPL - &(R2), 12 (R2) : MAKE DOUBLY SURE 
OD 13 DADS 947 BEQL  DIVR + NO, ERROR OUT 
00000000'FF 66 OF OADS5 949 VABUG: INSQUE (R6),@EXESGL_POBBL : DEALLOCATE PQB TO LOOKASIDE LIST 
OADC 950 SETIPL #0 : ALLOW PROCESS TO BE DELETED 
0391 31 ADE 931 BRW EXESEXIT_IMAGE + DELETE THE PROCESS 
AE $38 } NOW DIVIDE THE CREATED SPACE INTO FOUR AREAS 
AE2 955 ° 
00000004'EF 62 D0 OAE 996 DIVR: MOVL  (R2),PI0$GQ_IIODEFAULT+4 : DEFAULT IMAGE 1/0 AREA 
00000000'EF 58 DO OAES 95 MOVL  R8,P{0$GQ_ITODEFAUL : SIZE 
50 00000004'9F DE OAFO 958 MOVAL a 10$GW_PIOIMPA+INPSL_1OSEGADDR.RO : GET POINTER ADDRESS 
5 $ CO OAF? 959 ADDL (R2),R : START OF REMAINING SPACE 
80 DO OAFA 960 MOVL RB. (RO) : SET UP THE PIO SEG ADDR 
57 DO OAFD 961 OVL_ 7, (RO) : SET LENGTH 
50 57 58 C1 0B00 96¢ ADDL3 R8.R7,RO : GET POINTER TO FREE SPACE 
00000000'9F 50 00 04 96 OVL RO. a#CTL$GQ_ALLOCREG : SET UP PROCESS ALLOCATION 
0 D4 964 CLRL =—_ (RO) + + NULL FORWARD POINTER 
0 0B0D 965 MOVL 4, (RO) : SET SIZE OF REGION 
00009000" 19 366 MOVZWL G*SGNS$GW_CTLIMGLIM,RO > GET IMAGE L 
90000600" OF 9 1 ASHL #9,RO,a#CTL$GL_PRCALLCNT : CONVERT TO # BYTES 
00000000'9F 04 A2 OF C 1F 968 SUBL3 #CCBSC_LENGTH-T,4(R S OACTLSGL. CCBBASE ; STORE BASE OF CHANNEL TABL 
ds 
1 
358 
74 ; 
iy 
399 


00000000°9F 00000000'GF  3C¢ : 


65 62 00 MOVL (R2),(R5) ; UPDATE BASE OF VA IN CTL REGION 


8 11 
PROCSTRT = PROCESS STARTUP AND INITIALIZATION 16-SEP=1 AX/VMS Macro V04-00 Page 
iva ts EXESPROCSTRT = STARTUP NEW PROCESS 18-8 P=] 1384 9} 99: $3 LEYS SRCIPROCSTRT MAR: 3 2, 
SE 20 AE DE 5 : 3 0 MOVAL 32(SP),SP : POP SCRETVA ARGS 
BSA H 
B3A 3 : ; ALLOCATE P1 SPACE FOR THE PROCESS-PRIVATE LOGICAL NAME HASH TABLE, FOR 
B3A 984 : THE PROCESS DIRECTORY LOGICAL NAME TABLE, AND FOR ALL PROCESS-PRIVATE 
B3A 985 : LOGICAL NAMES AND LOGICAL NAME MT ABLES THAT NEED TO A SETUP AT PROCESS 
B3A 9 $ ; CREATION TIME. INITIALLY FORMAT THE LOGICAL NAMES AND LOGICAL NAME TABLES 
B3A 987 : BY COPYING THEIR TEMPLATES ONTO THE P1 SPACE ALLOCATED FOR THEM, AND THEN 
B3A 988 ; FORMAT THE PROCESS-PRIVATE LOGICAL NAME HASH TABLE. 
Ba: 
51 00000000'GF 00 OB3A 991 MOVL § G*LNMSGL_HTBLSIZP,R1 ; RETRIEVE NUMBER OF HASH TABLE pENTRIES 
51 0000000¢ 9F41 DE 0B41 $36 MOVAL @#LNMHSHSK_BUCKETCR13,R1; MULTIPLY BY 4 AND ADD OVERHEAD 
57S 00 4999 MOVL R1,R ; SAVE SIZE OF HASH TABLE 
51 000006FO BF ¢ B46 994 ADDL2 #P{ ALLOC_SIZE,R1 : ADD IN SIZE OF LOGICAL NAME BLOCKS 
00000000'GF 16 0B53 995 JSB CAE RESALOPIPROE t ALLOCATE TOTAL AMOUNT a) SPACE NEEDED 
58 52 00 0899 996 MOVL ; SAVE ADDRESS OF ALLOCATED SPACE 
O6FO BF 2c OB5C 998 MOVCS pi ALLOC_SIZE,- ; COPY TEMPLATE FOR ALL LOGICAL NAMES 
62 51 00 F505 CF 0860 999 ROC_DIR,#0,R1,(R2) + AND ZERO PROCESS-PRIVATE HASH TABLE 
3 ~58 Q00006F0 BF C1 0866 1000 ADDL3 OF _RLLOC_SIZE.R8,R3  : COMPUTE HASH TABLE ADDRESS 
00000000'9F 53 009 OBGE 100¢ MOVL_ R3,a#CTL$GL_LNMHASH : STORE ADDRESS OF HASH TABLE AWAY 
50 00000000'GF gi C3 0B75 100 SUBL3 #1,G*°LNMSGL-HTBLSIZP,RO ; CALCULATE UPPER BOUND OF HASH INDEX 
63 50 D2 OB7D 1004 MCOML RO. LNBHSHSL — MASK (R3) + STORE HASH INDEX MASK IN HASH TABLE 
08 As) «6=57=BOs(0BBO «1005 MOVW =R7, LNM HSHSW- SIZE(R3) : STORE HASH TABLE SIZE IN HEADER 
38 690 0B84 1006 MOVB  #DYNSC_RSHT ; STORE HASH TABLE STRUCTURE TYPE IN 
0A A3 0B86 1007 LNMHSHSB_ TYPE (R3) : HASH TABLE HEADER 
aaa 
Opes 1940 : FIXUP THE PROCESS DIRECTORY LOGICAL NAME TABLE, LNMSPROCESS DIRECTORY, AND 
0B88 1011 : LINK IT INTO THE APPROPRIATE HASH BUCKET OF THE PROCESS-PRIVATE LOGICAL NAME 
0B88 101g : HASH TABLE. 
OB88 1013 : 
0B88 1014 
57 2C AS 9E OB8B8 1015 MOVAB PROC_DIR_LNMTH(R8),R7  ; COMPUTE DIRECTORY'S TABLE HEADER ADDR 
01 a7. 53 DO OBBC 1016 MOVL R3.LAMTHSL HASH(R75 ; STORE HASH TABLE ADDR IN TABLE HEADER 
Oc AB 57 DO 0B90 1017 MOVL Ret MBSL_TABLE(R8) t DIRECTORIES ALWAYS CONTAIN THEMSELVES 
9 a7 58 DO 0894 1018 MOVL RB. CNMTNSC. NAME (R7) : STORE L DDRESS IN TABL E HEADER 
19 A? 57 «=O «0898 1019 MOVL  R7.LNMTHSL-QTABLE(R7) : DIRECTORIES ARE QUOTA 
00000000'9F 58 D0 0B9¢ 10 0 MOVL §R8,aMCTLSGC_LNMDIRECT : STORE ADDR OF PROCESS DIREETORY AWAY 
51 11 A8 9E DBA$ 3 : MOVAB LNMBST_NAME(R8),R1 ; RETRIEVE THE SIZE AND ADDRESS OF THE 
50 81 9A OBA 1 MOVZBL (R1)+,R : PROCESS DIRECTORY'S NAME 
00000000'GF 16 OBAA 4 JSB G*LNM$HASH HASH THE DIRECTORY NAME 
50 63 CA Q 10 : BICL2 LNMHSHSL_MASK(R3),RO MODIFY THE HASH INDEX TO BE IN RANGE 
0c A340 58 00 1 MOVL R8,LNMHSASC B BuckeT(R3) CROJ : INSERT THE PROCESS DIRECTORY TABLE 
04 ASB OC A340 DE O0BBB 1028 MOVAL ENAHSHSC BUCKET(R3)CROJ,- : INTO THE APPROPRIATE HASH BUCKET 
—E 1029 LNMBS$L_BCINK(R8) 
E 1O34 
— 1 é > FIXUP THE PROCESS LOGICAL NAME TABLE, LNMSPROCESS_ TABLE, AND INSERT IT INTO 
BBE 33 THE APPROPRIATE HASH BUCKET OF THE PROCESS-PRIVATE LOGICAL NAME HASH TABLE. 
E 1035 ° 
51 58 A8 9E OBBE 1036 MOVAB PROC_TABLE(R8),R1 ; COMPUTE ADDRESS OF LNMSPROCESS_TABLE 
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PROCSTRT = PROCESS STARTUP AND INITIALIZATION 16-SEP-1984 AX/VMS Macro V04-00 Page 23 PR 
five EXESPROCSTRT = STARTUP NEW PROCESS 18: Hiatt 9}; 99: $3 SYS.SRCIPROCSTRT.MAR; 3 wt ve 
59 0080 : 9 C2 1037 MOVAB PROC_TABLE_LNMTH(R8),R9 ; COMPUTE AND SAVE ADDRESS OF LNM 
C Al D0 OBC? 1 8 MOVL R/LAMBSL TABLE (R1) : STORE CONTAINING TABLE HEADER'S 
1 a9 53 00 OBB 1 MOVL  R3,LNMTHSC_ HASH(R9) : STORE HASH TABLE ADDR IN TABLE HEADER 
9a9 51 D0 CF 1040 MOVL R1, LNMTHSL NAME (R9) : STORE LNMB ADDRESS IN TABLE HEA 
dad «657—~«COD D3 1041 MOVL R7CUNATHSL PARENT (R9) : LNMSPROCESS DIRECTORY IS PARENT AND 
19 a9 «6«57,)—««OsOBD7 1 4¢ MOVL  R7,LNMTHSL-QTABLE(R9) =; QUOTA HOLDER OF LNMSPROCESS TABL 
2 D4 OBDB 104 CLRL = R2 + NO SPECIAL INSERTION ATTRIBOTES 
00000000'GF 16 BD 44 JSB G*LNMSINSLOGTAB ; APPROPRIATELY INSERT LNMSPROCESS_TABLE 
OBES 1046; 
BES 1 23 : FIXUP LNMSPROCESS LNMSGROUP AND LNM$JOB AND INSERT THEM INTO THE APPROPRIATE 
BE3 1 48 : HASH BUCKET OF THE |P ROCESS=PRIVATE LOGICAL NAME HASH TABLE. LNM$GROUP AND 
BE3 1049 : NMS JOB REQUIRE THAT THEIR EQUIVALENCE STRINGS yee CONSTRUCTED FROM THE UIC 
BE3 1050 ; AND JIB ADDRESS OF THE NEW PROCESS RESPECTIVELY 
OBES 1082 ° 
54 6E DO OBE 193 MOVL ; RESTORE PCB ADDRESS TO R 
51 O00A8 CB SE OBES 1054 MOVAB procées( R1 ; COMPUTE ADDRESS OF LNMSPROCESS 
0c Al 57 DO OBEB 1055 MOVL —R7, Cineste * ABLECRI) + STORE CONTAINING TABLE HEADER ® S ADDR 
52 «D4 «(OBEF «61056 CLRL : NO SPECIAL INSERTION ATTRIBUTES 
00000000'GF 16 OBF 1057 JSB G*LNMS$INSLOGTAB : APPROPRIATELY INSERT LNMSPROCESS 
51 0118 C8 9E OBF7 1059 MOVAB JOB(R8),R ; COMPUTE ADDRESS OF LNM$JOB 
0c Al 57 00 OBFC 1060 MOVL 7 (nao TABLE (R1) + STORE CONTAINING TABLE HEADER’ $ ADDR 
53 re Al 3E 9¢00 1961 MOVAB JOB_XEND_SIZE-1(R1),R3_ COMPUTE ADDRESS OFLA LAST L 
50 00804 04 52 EF O0C06 1908 60$:  EXTZV R2,#4,PCBSL J1B(R4) .RO ; EXTRACT OUT HEX BITS AND TRANSFORM 
73. F40A CF40 90 OCOD 1064 MOVB CHARS(ROJ,-TR3) : THEM INTO THEIR ASCII EQUIVALENT 
FFED S204 =«1F «= 9DsO0C13—«:1065 ACBB so#'31,84,R2, : ¢ E RIGHT -> LEFT UNTIL DONE 
53 pO «0C19 = 1066 MOVL _R3,R10 + SAVE THE ADDRESS OF THE ASCII JIB ADDR 
52 4 «6(OCIC: «(1067 CLRL + NO SPECIAL INSERTION ATTRIBUT 
00000000'GF 16 OCIE 1068 JSB G“LNMSINSLOGTAB : APPROPRIATELY INSERT LNMS$JOB 
51 00E0 c 9 §¢54 1070 MOVAB GROUP(R8),R1 ; COMPUTE ADDRESS OF LNM$GROU 
0c Al 57 00 0C29 1071 MOVL R7,LNMBSL. TABLE(R1) + STORE CONTAINING TABLE HEADER S ADDR 
53 "so Al 9E OC2D 1078 MOVAB GROUP_XE END SIZE-1(R1),R3:; COMPUTE ADDRESS OF LAST L 
3 D4 0C31 107 CLRL = R2 : CLEAR INDEX REGISTER 
50 OOBE C4 03 § F Oc35 1074 61$: EXTZV R2,#3,PCBSW_GRP(R4),RO : EXTRACT OUT OCTAL BITS AND TRANSFORM 
F3DD CF40 ©6090 «OC3A_=«*1075 MOVB = CHARS RO}. -TR3) : THEM INTO THEIR ASCII EQUIVALENT 
FFED 52 03 «OOF 9D 0C40 107% ACBB #148 .618 : CONTINUE FROM RIGHT -> LEFT UNTIL DONE 
30 90 0C46 107 MOVB #*A/0/. Ree ) + ASSUME HIGH ORDER BIT IS 0 
03 OOBE C4 oF 1 0C49 1078 BBC #15 -Pchsu GRP(R4),62$ : IF $O THEN GO INSERT LNMSGROUP 
63 31 90 OC4F 1079 MOVB = #*A/1/, (R3) : OTHERWISE INSERT A 1 
5B 33 DO O0C52 1080 62$:  MOVL  R3,R11 : SAVE THE ADDRESS OF THE ASCII GROUP 
2 p& 0¢55 1081 CLRL ; PECIAL INSERTION ATTRIBUTES 
000000G0'GF 16 C57 19 ‘ JSB G*LNMSINSLOGTAB ; APPROPRIATELY INSERT LNMS$GROUP 
CSD 1084 ; 
C5D 1085 : FIXUP THE LOGICAL NAME BLOCKS FOR SYSSINPUT, TT, SYSSOUTPUT SYSSERROR, AND 
csp 1 6 : SYS$DISK, AND INSERT THEM INTO THE APPROPRIATE HASH BUCKET OF T 
90 ! : PROCESS-PRIVATE LOGICAL NAME HASH TABLE. 
CSD 1 ; 
C5D 1090 CRELNM - ; FIXUP AND INSERT SYSSINPUT 
e188 pT NEY, 
csp 1 38 sinh ut ATt 


D 11 
PROCSTRT = PROCESS STARTUP AND INIT 1A LIZATION 16-$ AX/VMS M 4- 
fivet ts EXESPROCSTRT = STARTUP NEW PROCESS 1ergEp =} 98 95:99:93 PANEMRS Macro vOe~OO 3 «© Page 2%, 
cS 34 SYSSINPUT 
C68 109 CRELNM ; FIXUP AND INSERT SYSS$OUTPUT 
C68 1 3 PaBst _OUTPUT,- scopagpielcespetiet 
C68 1 38 POBSL “OUTPUT ATT, = 
C68 109 SYS$O0TPUT _LAMX, 
C6 1 6 SYSSOUTPUT~ 
€73 (11 : CRELNM ; FIXUP AND INSERT SYSSERROR 
(73 «11 POBST _ERROR, = 
C73 1104 POBSL~ ERROR ATT, = 
Oc? 1105 SYSSERRO LAMX, 
Sere 1188 “meme 
OC7E 1108 CRELNM : FIXUP AND INSERT TT 
Oc7e 1109 POBST_ INPUT, = 
C7E 1110 POBSL~ INPUT “ATT, = 
OC7E 1111 TT_ 
seh is 
0C89 1114 CRELNM = ; FIXUP AND INSERT SYSS$DISK 
0¢89 1115 POBST_DISK,- 
0C89 1116 POB$L~DISK ATT,-= 
0c89 1117 SYSSDTSK_LAMX,- 
0c89 1118 SYSSDISK~ 
Stee 1190 
0C94 1121 : IF THE PROCESS BEING CREATED IS NOT A SUB-PROCESS THEN CREATE THE JOB AND 
0694 11 : + GROUP LOGICAL NAME TABLES 
gest 1st 
54 BE DO 0C94 1125 MOVL  (SP)+ ; RETRIEVE PCB ADDRESS 
10 AS «DS «(0C97 «1126 TSTL  PCBSL “BUNER(RS) : SUB-PROCESS? 
OD 12 OC9A 1127 BNEQ  65$ : IF YES THEN SKIP TABLE CREATION 
57 40 Ab 00 OC9C 1128 MOVL § PQBSL_JTQUOTA(R6),R7  : RETRIEVE JOB TABLE CREATION QUOTA 
4EA 30 OCAg 1129 BSBW EXESCRE_JGTABLE : CREATE JOB AND GROUP TABL 
03 50 Es OCA3 1130 BLBS 0,65$ ~ : CONTINUE IF SUCCESS 
FE2C 31 OCAG 1 : 64$: BRW VABUG : OTHERWISE, TAKE COMMON EXIT PATH 
OCA9 11 : 
BcAe i : 3 ALLOCATE P1 SPACE FOR THE PROCESS-PRIVATE LOGICAL NAME TABLE NAME CACHE | 
OCA9 1136 ° 
51 90000000 GF : cS OCA9 11 $ 65$:  MULL3 4#8,G*LNMSGL HTBLSIZB. »R1 ; ALLOCATE TWICE HASH TABLE SIZE | 
58 51 00000080 is cB 1 8 DIVL #LACSK K_LENGTH,R : COMPUTE # OF ENTRIES | 
tea) Sp 16 CBB 1140 158 G EXE SALOP1PROC ; ALLOCATE TOTAL AMOUNT OF SPACE NEEDED 
08 A2 0080 BO OCC4 1148 66$:  MOVW  #LNMCSK_LENGTH, LNMCSW_ side tre) > SET SIZE 
C + D4 OCCA 114 CLRL LNICSL TBLADDR(R2) : MARK EMPTY 
00000000' 9F OE OCCD 1144 INSQUE 5 bacit sca LNMTBLCACHE + INSERT IN QUEUE 
52. 00000080 BF CO OCD4 1145 ADDL aint LENGTA,R : POINT TO NEXT 
Eb F5 OCDB 1146 SOBGTR : LOOP | 
OE die | 
CDE 1108 t RESTORE PCB AND PHD ADDRESS, SET IPL TO 0 TO ALLOW FOR PROCESS DELETION 
CDE 1150 : (IF DESIRED), RESET ADDRESS SPACE, AND SET WSLAST. | 


QO000000'9F  4C A6 44 


00000000'9F 48 A6 D MOVL § POBSLUAF_FLAGS(R6) ,a#CTL$GL_UAF_FLAGS 


PARA RAAAAAASASAALAAALA LARA LASS SS | TEMP RATTAAAAARARAAAEAAAAAAAKERAAAAE 


THE FOLLOWING CODE WILL BE REMOVED WHEN WE DECIDE WHAT TO DO WITH THE 
ACCOUNT AND USERNAME FIELDS IN THE P1 POINTER PAGE. 


assume jib$t_account eq <jib$t_username + jib$s_username> 


Sete te Ge Ge 


50 0000000'GF 00 movl grcetsgt t eck 0 i; get pcb address ... 
5 0080 CO br} movl pcb iB(r 05 ,r ; So that we can get jib address 
2 movc3 : bs $ got + jib$s_account>,- 
Of AO ib$St_uSername(r0),- 3 move username and account 
00000000 ' 9F #ctlSt_username : in one instruction 


eeeereetererererererereeeeee END TEMP seeeearererenereeeeeeeeeeeee 
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PROCSTRT = PROCESS STARTUP AND INITIALIZATION 16-SE 1: AX/VMS M v04-0 P 
ivan EXESPROCSTRT = STARTUP NEW PROCESS o7$Eb=13be 95:99:93 PANCMES pero v0e-00 3 ee 
EE 1182 | 
55 8E 00 COE 1} 67$: MOVL (SP)+,R5 ; RESTORE PHD ADDRESS 
5C Q0000000'9F 0D CE1 1155 MOVAL Q#MMGSIMGHDRBUF , AP 3; IMAGE HEADER BUFFER ADDRESS 
00000000 ' GF 13 tH 1 $ JSB G“*MMGSIMGRESET 3; RESET ADDRESS SPACE AND SET WSLAST 
1 1} } ; THE FOLLOWING MOVC SEQUENCES DESTROY RO THROUGH R5 
6C 07€8 C6 9A OCEE 1160 IMGNAM: MOVZBL post. IMAGE (R6) , (AP) : Size OF IMAGE NAME STRING 
04 AC 08 AC bf CF3 1161 MOVA 8( AP DRESS OF IMAGE NAME STRING 
08 AC 0709 C6 6C ere 1196 MOVC (AP) ,POBST_ IMAGE+1(R6), aiandr ; MOVE THE NAME STRING 
06C8 C6 9 CFF 1164 TSTB PQBST_DDSTRING(R6) : CHECK FOR NULL STRING 
eo DO3 1165 BEQL 70$ YES, DONT MOVE ANYTHING 
9108 8F 28 QD0S 1166 MOVES #PQB$SS _DDSTRI 
00000000'°9F 06C8 C6 QD09 1167 PQB$T SBDSTRINGCRE) , aaP10$GT DDSTRING ; AND DEFAULT DIRECTORY 
op11 1198 70$: ; CONTINUE 
D11 1190 ; Move CLI and CLI table information to P1 space in one fell swoop: 
0D11 1171; PQBST_CL1_NAME => CTLS$GT -ot Ay AME 
0D11 1176 : PQBST_CLI'- TABLE <=> CTLS$GT_T 
0D11 1173; PQBST_SPAQN_CLI => CTLS$GT_ “SPA UNCL I 
gett Vee 3 PQB$T_SPAWN_TABLE -> CTLS$GT_SPAWNTABLE 
0D11 1128 ASSUME PQBST_CLI_TABLE EQ <PQBST_CLI_NAME + PQB$S_CLI_NAME> 
0D11 117 ASSUME PQBS$T-SPAQN_CLI €Q <PQBST"CLI-TABLE + PQB$S_CLI~TABLE> 
ae 118 ASSUME PQBST~ “SPAWN TABLE EQ <PQBST ~SPAQN_ CLI + PQBSS_ ~SPAQN_ CLI> 
28 OD11 1180 MOVC3 #<PQB$S_CLI_NAME+- 
0D1 EY PQB$S_CLI~ TABLE+- 
ODIs 1188 POSS SPAUNTSABL E> 
0088 C6 0240 8F 0D1 1184 PQB$T tcl PNAME (RED aaCTLSGT. CLINAME 
00000000 ' 9F at 1185 
aie 1136 ; STORE EVERYTHING ELSE OF INTEREST BEFORE WE GET RID OF THE PQB 
ODD 1138 MOVL PQB$L_CREPRC_FLAGS(R6) ,@#CTLSGL cperas _FLAGS 
OD2D 1190 
OD2D 1191 
OD2D 1136 
D2D 119 
D2D 1194 
D2D 1195 
Ded 1138 
D2D 119 
Ded 1138 
D34 119 
p39 (1 BY 
D3B 1908 
: a 
1204 
1205 
1206 


00000000'FF 66 OE INSQUE (R6),@EXESGL_PQBBL ; DEALLOCATE PQB TO LOOKASIDE LIST 


a 


] 
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PROCSTRT = PROCESS STARTUP AND INITIALIZATION 16-SEP=1 AX/VMS Macro V04-00 Page 
five ty EXESPROCSTRT = STARTUP NEW PROCESS 18-3 SEP=1 1382 $3 £99: $3 SYS.SRCIPROCSTRT.MAR; 3 . 6, | 
p49 oh SETIPL #0 ; DROP IPL AND ALLOW PROCESS DELETION | 
D4c 1 : 
bac 19 ; INITIALIZE FIXUP VECTOR LINKED LISTS TO CONTAIN A SINGLE DUMMY ENTRY | 
D4C 1212 ° 
00000000'9F 00000000'9F bE Spee 1548 MOVAL  @#CTLSGL_IAFPERM, @ACTLSGL_IAFLINK | 
00000000 ' 9F iitddittte DE D3 1 MOVAL @#CTLSGL-1AFPERM, a#CTLSGL~IAFLAST | 
D62 1216; 
D6 1? : INITIALIZE ARRAYS THAT DETERMINE HOW PRIVILEGED VECTORS ARE RESET 
50 G0000000'°9F 3& ODé62 1 i§ MOVAW  @M#IACSAW_VECRESET,RO  ; STORE RESET ARRAY ADDRESS 
0 04 80 D69 1220 MOVW #4,(RO)+ : KERNEL VECTOR 
4 BO OD6C 1221 MOVW #4, (RO)+ : EXEC VECT 
4 80 OD6F 1 ‘ MOVW #4.(RO)+ + RUNDOWN VECTOR 
4 B80 $78 ; MOVW #4.(RO)+ + MESSAGE VECTOR 
50 00000000'9F  3€ oF 1225 MOVAW aFIACSAW. VECSET,RO ; STORE START ARRAY ADDRESS 
80 04 B80 Op7c 1 6 MOVW = #4, (RO) +> + KERNEL VECTOR 
80 04 BO OD7F 1 MOVW #4.(RO)+ : EX XEC ove CTO 
80 04 B0 OD8e 1228 MOVW #4.(RO)+ + RUNDOWN VECTOR 
80 04 B80 085 3 MOVW #4.(RO)+ : MESSAGE VECTOR 
0D88 1231 EXESPROCIMGACT:: : ENTRY POINT FOR STAND-ALONE SYSGEN 
54 90000000" 9F DO 0088 1 : MOVL “QECTLSGL PCB,R4 GET PCB ADDRESS 
58 0 i3 EF OD8F 1 EXTZV aces V_HIBER.#1,PCBSL_ sTé(Ra), RBS SAVE HIBERNATE CONTROL 
06G00F 4 EF FB OD95 1234 CALLS XOQPMERGE MERGE KQP INTO PROCESS 
03 00008000" cF 8 El on9¢ g BBC Ss heKESV. INIT, G*EXESGL fags 72s i ,00 tee IF NOT INIT 
7E 9C Spas 1 § 72$: ROTL wp si sy PRVMOD ,#<PSLS$C aexkcapsPst sc EXEC>,-(SP) ; FORM EXEC PSL 
be 10 ODAB : BSBB E MODE TO EXECUTIVE 
QDAD 40 j teeweeeees THE FOLLOWING CODE EXECUTES IN EXEC MODE teeeeeeeee 
52 6C 9A ODAD 1 4g MOVZBL (AP),R2 ; GET ADR OF FILENAME STRING DESC 
3g 03 CO ODBO 124 ADDL # Re : ROUND THE NUMBER OF BYTES IN 
5 03 CA ODB3 1244 BICL #3.R ; THE NAME UP TO A LONGWORD BOUNDRY 
SE 2652)0SCC2sC«ODBSSO1245 SUBL  R2,SP : ALLOCATE SPACE FOR NAME ON STACK 
6— OF ODB9 1 46 PUSHAB (SP) ; BUILD STRING DESCRIPTOR FOR 
7E 6C 9A ODBB 124 MOVZBL (AP),-(SP) : FILENAME ON THE ST ACK. 
51 SE 00 ODBE 1 48 MOVL P, ; GET ADR OF STRING DESCRIPTOR 
E BB DC1 124 PUSHR #°WRI RO, R3,R4,R5> ; SAVE REGISTERS 
04 B81 04 BC 28 ODcs 1 30 VC3 -R2,@4(AP).a4(R15 ; MOVE FILENAME TO STACK 
— BA ODC9 1251 OPR  #*ACRT,R2, a R4,R5> ; RESTORE REGISTERS 
pcB 1 3 SIMGACT ; ACTIVATE THE IMAGE 
DCB 1 ME =(AP) ; DESCRIPTOR FOR IMAGE NAME 
DCB 1254 DFLHAM=DEF DESC. > DEFAULT NAME DESCRIPTOR 
DCB 1255 H RBUF= CAP) : ADDRESS IF IMAGE HEADER BUFFER 
2 CO ODE2 1 e ADDL #8,R > CALCULATE # OF BYTES ON S 
E CO ODES 1 ADDL  R2.SP ; AND CLEAN THEM OFF 
16 f Des 1 : BLBC 5$ ; BRANCH IF IMGACT FAILED 
50 9 90° F 9E ODEB 125 MOVA aFPLOSAL gRMSEXH RO ; GET ADDRESS OF EXIT HANDLER CONTROL BLOCK 
04 A F25°CF GE ODF2 1 60 MOVAB XESRMSEXH, 4 (RO) : SET ADDRESS OF RMS EXIT HANDLER 
DFB 126 SOCLEXH 5 a ) : DECLARE EXEC MODE EXIT HANDLER 
63 50 £9 EO! 1 6¢ 75$:  BLBC 0$ > IF LBC ERROR 
00000000'GF OE6B'CF SE OE04 126 MOVAB OPEXESELI LUTILSRV+2,G*CTLSAL_CLICALBK ; SET CLI CALL BACK ADDRESS 


om 
mw 


PARADE MNES & BE EAA OS 0 OO 


zao 
DOOOO OWNS SM NWS BW NLS NOS NOOO & OVW OOO 


AAO 


SOOCOCOGSGOSOSOSOSOSOOSOSOSOOOSOOOOOOOOOOOOOOOOOOOoOO 
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11 | 
TUE MSIRITTALLZATLON — YeSEEIORE O10043 Yan mpg yOerOo, 5 Pear 2. 


T 
$ 
ROTL +44 faa PRVMOD , #<PSLSC eee ie USER>, ‘mabe. ; FORM USER PSL 


és BSBB ANGE TO USER | 

¢ j teeeeeeeee THE FOLLOWING CODE EXECUTES IN USER MODE teeeeeeece | 

$3 CLAL FP 3 TERMINATE CALL FRAME CHAIN 

p CALLG  (AP),B*90$ + CREATE TOP FRAME 

7 B08: REI : CHANGE TO NEW MODE 

re $: .WORD 0 + ENTRY MA 

7 MOVAB B*EXESCATCH_ALL, (FP) + SET EXCEPTION HANDLER ADDRESS 

74 SSETEXV_S #2,B°EXESTATCH_ALL ; DECLARE LAST CHANCE HANDLER 

75 SIMGFIX=S : PERFORM ADDRESS RELOCATION 

id: LBC “RO, 1208 : QUIT IF ERRO R occu RS 

7 PUSHL R : SAVE HIBERNATE FLAG 

78 100$: MOVa CAP) -R2 : GET IMAGE HEADER’ BLOCK DESCRIPTOR 

79 CLRL SP§ ; CLEAR COMMAND INTERPRETER FLAGS 

80 PUSHL IMDst LNKFLAGS(R2) > PUSH LINKER FLA AGS | 

81 OV -(SP ; THIRD AND FOURTH ARGUMENTS TO PROG 

2 PUSHAB B°ExE ESCLI_UTILSRV > PUSH ADDRESS OF arts CALL BACK ROUTINE 
MOVZWL LHD Sy SAC TIVOFF URS) , R1  : OFFSET TO TRANSFER VECTOR 

4 ADDL Ri R2~ : FORM ADDRESS OF START VECTOR 

89 PUSHAL (R2) : MOVE TO ARGUMENT LIST 

6 LBC se eSp) 1108 : BR IF NO HIBERNATE 

87 HIBER_S : SET, HIBERNATE UNTIL SOME WAKE 

88 1108: CALLS ~ #6,a(R2)+ : CALL IMAGE 

89 LBC —saRO 1208 : EXIT IF NOT SUCCESS 

90 BLBS (SP),100 : CHECK FOR HIBERNATE AGAIN 

x 120$: 8B EXESEXIT IMAGE ; 

93 ; 

% + DUMMY COMMAND INTERPRETER CALL BACK ROUTINE 

9 . 

3 .ENTRY EXESCLI_UTILSRV,*M<> 

4 nove #CLI$_ INVREQTYP.RO : SET INVALID REQUEST TYPE STATUS 


00 -DSABL LSB 
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fives th EXIT IMAGE AND RUN DOWN FILES 18: ety 94:99:43 LEYS SRCIPROCSTRT MAR: 3 * 
E? ; de .SBTTL EXIT IMAGE AND RUN DOWN FILES 
£73 1305 : 
EY ‘ ; EXESEXIT_IMAGE - EXIT IMAGE AND RUN DOWN FILES 
€73 1 : ; THIS ROUTINE I$ JUMPED TO AT THE CONCLUSION OF IMAGE EXECUTION TO RUN DOWN 
34 09 RMS FILES AND TO RETURN THE FINAL IMAGE STATUS. 
EY 1 : INPUTS 
E 18 ; RO = FINAL IMAGE STATUS. 
E 13 ‘ QUTPUTS: 
£73 1 i$ : IMAGE EXIT IS EXECUTED. 
aa 
E73 1320 EXESEXIT_IMAGE:: : EXIT IMAGE 
50 DD OE73 1321 PUSHL RO ; SAVE FINAL IMAGE STATUS 
01 DD OE75 1 g PUSHL #1 + SET NUMBER OF ARGUMENTS 
00000000 ' 9F 6f FA 0E77 1323 10$:  CALLG (SP), a#SYSSEXIT : EXIT IMAGE 
F? 11 OE7E 1324 BRB 10$ : 


PROCSTRT - 
v04-002 CA 


ro 
rom 
ow 


o- 
ow 
bene ag 
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~SBTTL CATCH ALL CONDITION HANDLER 
EXESCATCH_ALL = CATCH ALL CONDITION HANDLER 


THIS ROUTINE IS ENTERED AS THE RESULT OF AN UNFIELDED OR IMPROPERLY HANDLED 
EXCEPTION CONDITION OR SOFTWARE SIGNAL. 


>m 
z2> 


CHFSL_MCHARGLST(AP) = ADDRESS or MECHANISM ARGUMENT 
CHFSL-SIGARGLST(AP) = ADDRESS OF CONDITION ARGUMENT 


OUTPUTS: 
A MESSAGE IS ISSUED 
MADE ON THE CONDITI 
ee EXECUTI 


LIST. 
LIST. 


USING i SYSSPUTMSG SYSTEM SERVICE AND A TEST IS 
N NAME TO DETERMINE IF THE IMAGE SHOULD BE ALLOWED 
N. THE FOLLOWING CONDITIONS CAUSE A FORCED IMAGE 


0 
0 
1. ANY ENTRY TO THIS ROUTINE VIA THE LAST CHANCE VECTOR. 
2. THE CONDITION NAME HAS A SEVERITY OF "SEVERE ERROR". 


IF A FORCED IMAGE EXIT IS PERFORMED, THEN A SUMMARY OF THE CONDITION 
ARGUMENTS AND FINAL REGISTERS ARE WRITTEN TO SYSSOUTPUT. 


Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


NOAUE AN OS OOO NAME WIN 2 0 OO NOA UE WH OOO NOAOUS WH" OOOn~I 


NNN NNN AAA AAA AAA MAMA AAAI ES BS EB BB AIA AAA AAA AION IND 


P 
$s 
J 
J 
J 
J 
J 
J 
J 
J 
J 
J 
J 
J 
J 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
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sENTRY EXESCATCH_ALL, “M<R2,R3,R4,R5,RO,R7,RB.RI,-R10,R11> 
00 PUSHL #0 ; Sef EXCEPTION NAME FLAG FALSE 
52 PUSHL R2 SA VE REGISTER 
52 AC VL CHFSL_SIGARGLST(AP) ,R2 : GET ADDRESS OF SIGNAL ARGUMENTS 
62 DD PUSHL (R2) ~ SAVE NUMBER OF ARGUMEN 
045C BF 04 ag } CHP CHFSL L_S1G_NAME(R2) ,#SS$ isfhlt ; IS EXCEPTION SYS. SERV. FAIL.? 
SSETSFM_S #0 : YES, TURN OFF SYS. SERV. FAIL. EXCEP. 
06 A2. BS 5$: TSTW  “CHFSL_SIG_NAME+2(R2)  ; POSSIBLY SYSTEM EXCEPTION NAME? 
20 12 BNEQ g08 : IF NEQ 
08 AE 06 INCL (SP) : SET EXCEPTION NAME FLAG TRUE 
51 Q0000000'EF  9€ MOVAB L*EXESEXCEPTABLE,R1 : GET ADDRESS OF EXCEPTION TABLE 
50 81 9A MOVZBL (R1)+,RO : SET LOOP COUNT 
1 95 10$:  TSTB  (R1)¢ : SKIP NUMBER OF ARGUMENTS 
7E 81 3¢ 8 MOVZWL (R1)+,-(SP) + GET NEXT HARDWARE EXCEPTION CODE 
oC O03 ED 9 CMPZV #STS$V_CODE ,#STS$S_CODE,- ; CONDITION VALUE HARDWARE CODE? 
8E 04 Ag p CHESL_ SIG_NAME(R2)7(SP)+ ; 
0 1 BEQL Os :' IF EQL YES 
F050 séF é SOBGTR RO,10$ : ANY MORE TO COMPARE? 
08 AE D4 CLRL BC §P) > SET EXCEPTION NAME FALG FALSE 
6 g 3 4 308: SUBL #2 (Re) + ADJUST LENGTH OF ARGUMENT LIST 
00000000' 9F 5 30$: STB gefTL GB_SSFILTER : SYSTEM SERVICE INHIBITED NOW? 
Dp 1 : BNEQ $ : YES, DO NOT TRY TO PRINT ANYTHING 
0 oD PUSHL # : CLEAR ADDRESS OF FACILITY NAME DESCRIPTOR 
BD ; PUSHL # : CLEAR ADDRESS OF ACTION ROUTINE 
F PUSHAB (R2) : SET ADDRESS OF MESSAGE VECTOR 
00000000' 9F F 6 CALLS #3, a#SYSSPUTMSG : OUTPUT MESSAGE 
8ED 35$: POPL (Rd) + RESTORE ARGUMENT COUNT 
50 04 A2 D : MOVL § CHFSL_SIG_NAME(R2),RO : GET CONDITION NAME 
52 BED POPL Re : RESTORE REGISTER 
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K 11 | 
PROCSTRT - PROCESS STARTUP AND INITIALIZATION 16-SEP-1984 g}: 99: $3 AX/VMS Macro V04-00 Page 31 P 
v04-002 EXESRMSEXH = EXEC Mode Exit Handler 14-SEP-1984 SYS.SRCJ PROCS STRT.MAR;3 (8) s 
F 10h , ~SBTTL EXESRMSEXH = EXEC Mode Exit Handler : 
: 138 : EXESRMSEXH = Executive mode exit handler : 
F 141 : This routine is called as the result of an _aetoups to exit from exec mode. S 
. 13} ; It's function is to run down all RMS files : 
F25. 1414 : INPUTS: 
F 1415 : 
F 1416 : NONE. 
F 1418 : OUTPUTS: 
F 1419 ; 
: 1? Y 3 NONE 
F 14 : : SIDE EFFECTS: 
F 1424 : RMS files are run down. 
Ose 105K 
0000 OF25 14 § ~ENTRY EXESRMSEXH, “M<> 
SE 80 AE 9E OF27 1428 MOVAB =128(SP),SP : ALLOCATE STRING BUFFER 
6E oF OF 8 14 3 PUSHAB (SP) : BUILD BUFFER DESCRIPTOR 
6— 80 oF 9A OF F 1431 10$: MOVZBL #128, (SP) : SET LENGTH OF STRING BUFFER 
01 DD OF 3 14 g SHL #1 ; RUN DOWN IMAGE AND ALL PPFS 
04 AE OF OF 14 PUSHAB 4(SP) ; PUSH ADDRESS OF BUFFER DESCRIPTOR 
00000000 ' 9F Q FB OF B 1434 CALLS #2,a#SYSSRMSRUNDWN : RUN DOWN THE NEXT FILE 
0001848C 8F b FE 14 5 CMPL R gfRASS_BUSY : BUSY ERROR IMPLIES DON* T TRY 
e450 «£9 Orag 14 $ BLBC RO, 10$ : IF LBC, THEN MORE TO GO 
4 OF4B 1438 20S: RET 
OF4C 1439 


Vea POVUUY VY 
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PROCSTRT = PROCESS STARTUP AND INITIALIZATION 16*SEP=1984 01:00:43 YAX/VMS Macro. VO4- 
voe=602 ERGE ~ Merge the KOP into Pi Space le-SEP-19Be ae:sa:4o EsvsvemciPRocsTRT Mar;s 8° % 


P -SBTTL XQPMERGE = Merge the XQP into P1 Space 
; FUNCTIONAL DESCRIPTION: 
This routine merges the XQP into P1 space. 
: ed —s of eet sections apect ited by XQP$GL_SECTIONS is mapped into 
; Mnn ranges from zero to TOPSa Ser TION el the seenton ie Sanped’orlesabiett 
; if the corresponding bit in XOP$GL_SECPROT is set. 
; CALLING SEQUENCE: 
CALLS #0,XQPMERGE 
; INPUT PARAMETERS: 
NONE 
IMPLICIT INPUT: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUT: 
NONE 
COMPLETION CODES: 
RO low bit set => XQP successfully merged 
SS$_NORMAL 
RO low bit clear => Error occurred while merging XQP 
Various errors returned by SIMGACT and SMGBLSC 


a} 
™~ 
™ 


SIDE EFFECTS: 


The permanent portion of P1 space is 
expanded to accommodate the merged image. 


OOF C 
00000000' EF fe 
146 1 


~WORD “M<R2,R3,R4,R5,R6,R7>  ;REGISTER SAVE MASK 
TSTL XQP$GL_DZRO 31S THERE ANY DZRO 


3NO 
EXPREG_S - SCREATE THE XQP OWN STORAGE 
PAGCNT = XQP$GL_DZRO,- 
REGION = #1,- 
ACMODE = #PSL$C_EXEC 


XQPMERGE : 


Pe wees eal ee et et et et et et tet tet tat tat et te a th ah el eh ee eat at ak tak ak ak ek a at at kk ek ek ek et ek et ttt tt et 
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PPP PP PPP PPP PPP PPP PPP PPP PPP PPP PPP PPP PPP PPP PP PPP PPP PPP EE 
WOO OOO WO O00 090909 09 69 0909 09 SII SS SSP PP PAPA AAD TU BP 
ONAN AN @§ OOD NAU EWN 0 OO NAME WIN $0 OD NAME WIN O OONAUE AD) OOONOUS 
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PROCSTRT = PROCESS st ARTUP AND INITIALIZATION -SEP=1 AX/VMS Macro V04-00 Page 33 
five ths KQPMERGE = Merge the XQP into Pl Space 1-3 P=} 138 9}: 99: $3 Heys. SRCIPROCSTRT.MAR; 3 ¢ 0%) 
7050 €9 F } BLBC ~=—_—«aRO,, 208 
0000 c2 OFé6C 1501 5s SUBL § #<XQP_NAMSIZ+3>8°C3,SP ;RESERVE SPACE FOR GSD NAME 
b F731 , MOVL P SSAVE ADDRESS OF 
66  00000FDD' “hoo cE F761 MOVC3 #xdP NANSIZ. ap -NAM, (R6)°:PUT GSD NAME IN WRITEABLE STORAGE 
0000" EF p FBO 1504 Rare SECTIO ; COUNT OF SECTIONS TO MAP 
ooonoss 3 F 1505 B R3,XQP"NAMSIZ~- NS Re) :START WITH LAST GSD NAME 
6 DD OFBE 1 : PUSH SBUILD DESCRIPTOR FOR GSD NAME 
0000 990A A'BF «6DD «OOF9O 1 PUSHL ayoP NAMSIZ 
E 00 OF96 1 8 MOVL  SP,R ; ADDRESS OF DESCRIPTOR 
7E 7TFFFEEF FF BF DO OF99 15 MOVL  &#*X7FFFFFFF,<(SP) ‘END VA FOR BLUEPRINT PO VA RANGE 
—E D FAQ 1 10 MOV (SP) ,=(SP) STA RY VA FOR BL LUEPRI NT po. VA RANGE 
E p FAS 151 MOVL SP, R4 SADR OF INPUT ANGE 
FAG 1 1g CLRO 20s = §P) ‘RETURN VA RA nee 
55 DO OFAB 151 MOVL  SP,R5 SADR OF RETURN VA RANGE 
D7 OFAB 1318 DEC R [MAKE COUNT ZERO-BASED 
D XQP_NAMSIZ=- *NEX 
00000009'E6 97 rA 1315 10$ DECE He. $12-1(R6) EXT GSD NAME 
FB 1349 NADR = (RD, - 
FB 1318 RETADR = 
FBS 151 LAGS = seeetsm. EXPREG! SECSM_SYSGBL>,- 
OFB3 1520 GSDNAM = (R 
FBS 1521 ACMODE = #PSLEC_EXEC 
OD 50 €9 OFCC 15 : BLBC ~—_ RO, 20 
ob 53)F4 FCE 13 3 SOBGEQ R3,10$ 
00000000'GF 65 D0 OFb3 1525 MOVL  (R5),G*CTLSGL_CTLBASVA :SET A NEW CONTROL REGION BASE 
00 85 17 #OFDS 15 $ JMP acrss :XQP SELF-INITIALIZATION 
04 FDC 1527 208: RET : AND RETURN TO CALL 
FD 12 § XQP_NAM 
30 30 30 SF 50 51 58 53 59 53 OFbp 1530 ~ . ASCII /SYSxXQP 000/ 
QOO0000A OFE? 1531 XQP_NAMSIZ = .-RQP_ 
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PROCSTRT = PROCESS STARTUP AND INITIALIZATION 16-SEP-1984 01:00: AX/VMS Macro V04-00 Page 34 
Hive th IMAGE DUMP MERGE 19-3Eb- 138 94:99:43 SYS.SRCJPROCSTRT.MAR; 3 9 10) 
Heh 4 .SBTTL IMAGE DUMP MERGE 
FE? § ; EXESIMGDMP_MERGE = MERGE IN THE IMAGE DUMP FACILITY AND CALL IT 
FE? 1 : THIS ROUTINE IS ENTERED AS THE RESULT OF A FATAL CONDITION WHICH WILL FORCE 
FE? 33 IMAGE EXIT 
FEL 4] ; INPUTS: 
FE? 1 rk CHFSL_MCHARGLST(AP) = ADDRESS OF MECHANISM ARGUMENT LIST. 
FE? 44 ; CHFSL-SIGARGLST(AP) = ADDRESS OF CONDITION ARGUMENT LIST. 
rE? 1346 ; : OUTPUTS: 
FE? 1348 ; AFTER PRIVILEGE CHECKS, THE IMAGE DUMP FACILITY IS MERGED INTO THE 
FE? 1549 ; ADDRESS SPACE AND CALLED. 
FE? 1550: 
Br ag 
OFE? 12238 EXESIMGDMP_EXEC:: ; EXEC MODE ENTRY POINT 
OFFC 8F OFE7 1554 PUSHR HNcR, R3,R4,R5,R6,R7, RB. R9,R10,R11> 
10 «11 OFEB 1355 BRB EXEC_M 
+ Bt Scenes 
OFED 1559 EXESIMGDMP_MERGE:: 
OFFC 8F BB FED 1560 PUSHR #°M<R2, R3,R4,R5,R6,R7, RB, R9,R10,R11> 
50 DC OFF1 1561 MOVPSL RO GET CURRENT PSL 
50 I BREE Hike REN supe cmon ersss.cono ti 
sF 12 OFFB 1564 BNEQ 5$ DUB. Nor ALLOWED 
SE £D90 ce DE OFFD 1365 EXEC_M: MOVAL SSCRATCHSIZE(SP), SP : RESERVE SCRATCH SPACE ON STACK 
6€ 0270 8F 00 6€ 00 2c 1998 1567 MOVCS  4#0.(SP),#0,#SCRATCHSIZE, (SP) 
0248 C6 02040 94 8F DO 100D 1368 OVL  #<JPI$ PROCPRIVA16>+4, PI PROE (AE): s NITIALIZE TO GET PROCESS PRIV 
024C C6 0234 C6 9E 1016 136 MOVAB PROCPRIV(R6),JPI_PROC+4 (RB) 
0254 C6 04130004 BF oD 101 1570 OVL  #<JPI$_IMAGPRIV aTé>+4, JPI_IMAG(R6) ; INITIALIZE TO GET IMAGE PRIV 
0258 C6 —023C Cé i 1026 1571 MOVAB IMAGPRIV CRS) JP PI MAG+4 (RB) 
0260 66, 94180004 er p0 i p 1378 OVE JP IS PHOELAGS ATO? #6. JF1 ELAG(RG) s INITIALIZE TO GET PHD FLAGS 
50 0248 C6 9E 103D 157% VAB JPI“PR ),RO ;~ADDRESS OF ITEM LIST 
1042 1575 SGETJPI_S EFN = #EXESC_SYSEFN,- 
1042 1 id: ITMLST = (ROD 
03 50 &8 1 3 157 BLBS _RO,10 
084 31 105c 1 A: 5$: BRW 30$ : ERROR - GIVE UP 
F7 0244 C6 05 €1 105F 1579 10$: BBC #PHDSV_IMGDMP,PHD_F LAGS(R6) ,5$ NO DUMP REQUESTED 
023C C6 34 C6 CA 1065 1580 BICL  PROCPRIV(R6) {MAGPRI V(R6): TEST THAT IMAGE PRIVILEGES AREN'T GREATE 
0340 C6 8 C6 CA 1 $¢ 1581 BICL  PROCPRI Ive4(RB), IMACPRIVe4 (RG) 
023C C6 40 ¢6 C8 1 15 ; BISL MAGPRIV+4 (R6) . IMAGPRIV(R6) 
‘ 13 107A 1 BEQL 0$ N EXCESS IMAGE PRIVILEGES 
08 0234 C6 o 34 107C 1584 BBS #PRVSV_CMKRNL sproceniy ni 0 
2 0234 C6 F 1 : 1585 BBS #PRVSV~SETPRV.PROCPRIV(R6) . 208 
03 4 1 6 BRB ; INSUFFICIENT PRIVILEGES 
66 pd 108A 1587 208 MOVL §§ #IMGACTS_NARGS, (R6) : SET ARGUMENT COUNT FOR SIMGACT CALL 
BAS EFAB EE OE 4098 1889 ROAR LDERPHAR, IGM 13 WARE CBO) S57 ADE OF INPUT DEFAULT NARE STR 
10 A6 $ Hi 1099 1590 MOVL &#<IACSM_MERGE { ACSA ATEKPREG>  IMGACTS IA IMGCTEKRGS : SET CTL FLAGS 
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= PROCESS STARTUP AND INITIALIZATION 16-SEP=19 AX/VMS Macro V04-00 Page 35 
IMAGE DUMP MERGE 12-8Ep- 198 9}: 98: $3 teyS SRCIPROCSTRT.MAR; 3 . 33) 
0C A6 434.06 OE MOVAB HDRBUF(R6), IMGACT$_HDRBUF(R6) ; SET ADR oF pase HEAD R FFER 
14 A624 he 9E ; MOVAB IMGACT_INAOR(R6) ,IAGACT INADRi Ra) SET ADR OF INPUT , Ph RANGE 
18 AGB OL A 9 MOVAB IMGACT at lean TADRRS SETA ADR OF RETURN RANGE 
£ Ab p 9 CLRL IMGACTS_IDENT(R6) ; TCH 1DEnte Fb F 
ag 020 er £ 9 MOVZWL axe IMGACT_INADR(R SET. " BLUEPRINT P jADDRESS RANGE FOR 
FFFFFFF 8F OD 9 OVL _ #1830-1, IMGACT_INADR+4 (nb) APPING TO FIRST FREE VA SPACE 
9 SIMGACT_G (86) : nip” IN THE pune IMAGE 
SIMGFIX_S 
1250 €9 PLBC “~RO,30$ 
51 2C AB DO OVL ImGact RETADR(R6),R1 =; START OF THE MERGED IN CODE 
51 : Ai C1 ADDL3 8(R1),R1,R1 : START ADDRESS OF THE DUMP ROUTINE 
SE 0270 C6 ODE: MOVAL SCRATCHSIZE(R6),SP ; GET RID OF SCRATCH STORAGE 
61 16 JSB (R1) 
5 (11 BRB 40$ 
SE 0270 £6 DE $0$:  MOVAL SCRATCHSIZE(R6),SP 3 GET RID OF SCRATCH STORAGE 
OFFC 8F BA 40S: PNCRS REERG RS IRG R6,R7,RB_RI,R10,R11> 


RSB 

-DSABL LSB 
; ~SBTTL CRELNM - FIXUP AND INSERT A LOGICAL NAME BLOCK 
FUNCTIONAL DESCRIPTION: 


THE PURPOSE OF THIS ROUTINE IS TO FIXUP_A_LNMB FOR A LOGICAL NAME AND INSERT 
IT INTO_THE APPROPRIATE HASH BUCKET OF THE PROCESS-PRIVATE LOGICAL NAME HASH 
TABLE. THE LOGICAL NAME BEING FIXED REQUIRES THAT ITS EQUIVALENCE STRING BE 
MOVED FROM THE PQB INTO THE STORAGE ALLOCATED FOR IT. IF THE LENGTH OF THE 
EQUIVALENCE STRING IS 0 THEN THE BLOCK OF STORAGE FOR THIS LOGICAL NAME IS 


DEALLOCATED AND THE ROUTINE EX!TS. 
CALLING SEQUENCE: 


BSBW CRELN 
-WORD PQBST oF FSET> 
» D PQBST~<OFFSET>_A 


-WORD <NAME>"= PROC_DI 
INPUT PARAMETERS: 


R - ADDRESS OF PQB 

R - ADDRESS OF PROCESS praecrey TABLE HEADER 
R8 - ADDRESS OF ALLOCATED Pi $ 

RY - ADDRESS OF PROCESS TABLE'S TABLE HEADER 


IMPLICIT INPUT: 


IT IS ASSUMED THAT THE LOGICAL NAME BEING CREATED HAS ALREADY BEEN 
FORMATTED WITH THE EXCEPTION OF: 


1, THE CONTAINING TABLE ADDRESS WITHIN | 
2. THE TRANSLATION STRING AND ATTRIBUTES 


OUTPUT PARAMETERS: 
NONE 


TS LNMB 


S 
WITHIN ITS LNMX. 


NOU WIN 3 0 OO NAME WIN OO ONOAUE WN O OONOU SEWN O0O@ Qe nF Gr O08 Orem - ao- 
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i ee a ee ee ee a dd 
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5 
04 A843 = 66415 
51 8 

=, 

OC Al ; 
00000000 'E 


= PROCESS STARTUP AND IN 
CRELNM = FIXUP AND INSERT ICAL NAME 1 


10$: MOVZWL 


Oooo —AOOOrwvrorooe 


DA SW OWNS 


COs 
9 I QOOOODODOODODODOODOOOO0O 


a te a a dd dd 
OMS NL SODD VPA NS NOOO SPOWOVVVTVTVCCVVVCT"CTC0"0”"€ 
i a dd 
PARLE AAAAAAAAAA AAO AA AAA A AAA AAO OP OOO A AO 
C000 090909 SI SIN NN SNS OPP AAA AAA AAI 
FWD OO DNAU EWN SO OONAU EWN OUWONOU SW OOo 


o-T9T0W wo 
UELeoon 


™m 
So 
bad 
= 
nw” 
@ 


urnunfole reste 


; IMPLICIT OUTPUT: 
; NONE 

; COMPLETION CODES: 
: NONE 


; SIDE EFFECTS: 


RO - R3, R5, AND AP ARE DESTROYED. 


=e 
La] 
m 
~ 
z 
Oo 
~ 
» 
_ 


MOVZWL 
MOVB 


mOVeS 
MOVZWL caps fl 

RO LNMBSL_TABLE(R1) 
JSB LNMSINSLOGTAB 


co 
z 
= 
cet 
wn 
~ 
=< 
_ 
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= 
—s wn 
or 
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~~ 
=] 
co 
~ 
P=] 
as 
wa 
Pete Ge Ge Ge Ge Ge Ge Ge Ge Se Seo 


1986 22:59:32 USNS VSaclBRocstatanan:s "99° #8, 


FIXUP AND INSERT THE tet St NAME 
RETRIEVE ARGUEMENT POINTER 

CORRECT RETURN PC VA 
RETRIEVE OFFSET TO _— ATION 
RETRIEVE THE $1Z PATHE Deere 
IF ITS NOT 0 THEN 
RETRIEVE OFFSET T 

COMPUTE ADDRESS 0 
RETRIEVE SIZE OF BLOCK TO DEALLOCATE 
DEALLOCATE THE L 

GO RETURN 

ETRIEVE OFFSET TO ne ATTRIBUTES 
oy Md OFFSET TOL 

TORE THE TRANSLATION" ATTRIBUTES FROM 

THE PQB INTO THEN LNMX FLAG FIELD 


; MOVE COUNT ALONG WITH TRANSLATION 
; MOVE TRANSLATION COUNT AND STRING FROM 


INTO THE APPROPRIATE LNMX FIELD 
ET TO LNMB 


; OF LNMB 
; STORE CONTAINING TABLE HEADER'S ADDR 


SPECIAL INSERTION ATTRIBUTES 


NO 
; oe eee INSERT SYSSERROR 
; RETURN 


” 
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PROCSTRT NITIALIZATION 16-SEP-1984 01:00: AX/VMS Macro V04-00 P 7 “ 
vousb0e E GROUP AND JOB-W 14-SEP-1 1982 93:99:43 Sys. SRCJPROCSTRT .MAR; 3 het? ap ve 
~SBTTL EXESCRE_JGTABLE = CREATE GROUP AND JOB-WIDE LOGICAL NAME TABLES 
FUNCTIONAL DESCRIPTION: 
THE PURPOSE 4 THIS Bouts I$ TO HANDCRAFT GROUP AND JOB-WIDE LOGICAL 
NAME TABLES AND DIRECT THEIR INSERTION INTO THE ite one * HASH BUCKET 
OF THE Oh LOGICAL a“ HASH TABLE. GROUP LOGICAL NAME TABLES ARE INSERTED 
SUCH THAT IF THERE N EXISTING GROUP TABLE FOR THAT GROUP, THE CALLER OF 
THIS ROUTINE IS MAPPED TO IT. 
CALLING SEQUENCE: 
BSBW EXESCRE_JGTABLE 


; INPUT PARAMETERS: 


a 
nm 


R7 - JOB TABLE QUOT 
R1 = ADDRESS OF ASCII EQUIVALENT OF JIB ADDRESS 
R1 - ADDRESS OF ASCII EQUIVALENT OF GROUP NUMBER 
IMPLICIT INPUT: 
LNM_SYSTEM_DIR_LNMTH - ADDRESS OF SYSTEM DIRECTORY TABLE HEADER 
LNMSAL _HASHTBL - ADDRESS OF POINTER TO SYSTEM HASH TABLE 
SCHSGL_CURPCB - ADDRESS OF PCB 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUT: 
R4 
COMPLETION CODES: 


ADDRESS OF PCB 


T QUOTA IN SYSTEM DIRECTORY TABLE 


1 - SUCCES 
SSS_EXLNMQUOTA = INSUFF 
- INSUFF T PAGED POOL TO ALLOCATE LNMBS 


SS$~INSFMEM 
SIDE EFFECTS: 
RO - RS AND R8& ARE DESTROYED. 


THE JOB-WIDE LOGICAL NAME TABLE WILL HAVE BEEN CREATED POTENTIALLY 
RESULTING IN THE DELETION OF ANY SHAREABLE TABLE WITH THE SAME NAME. 


THE GROUP LOGICAL NAME TABLE WILL HAVE BEEN CREATED PROVIDED A GROUP 
hg WITH THAT NAME DOES NOT ALRADY EXIST IN WHICH CASE NOTHING IS 


meen 
— 
mm 
zz 


a a a kd hd tt IO 
a i Bi Bi i Bi Bi i Bi BB ND et 
Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Be Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sse Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se 


4A 
.ENABL LSB 
EXESCRE_GTABLE:: 5! 
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fives th EXESCRE_JGTABLE = CREATE GROUP AND JOB-W a ets Ph 93:99:43 SYS.SRCJPROCSTRT.MAR; 3 ° a 
11 q 1743 
11 1744 ; 
1137 1745 ; THIS ROUTINE EXESCRE_GTABLE IS IDENTICAL TO THE ROUTINE EXESCRE_JGTABLE 
1137 1746 ; WITH EXCEPTION THAT THE JOB LOGICAL NAME TABLE IS NOT CREATED. THUS THE 
1137 1747 ; ONLY INPUT PARAMETER IS R11, WHICH HAS THE ADDRESS OF ASCII EQUIVALENT 
1} f 1708 ; OF GROUP NUMBER. 
1137 1750 ° 
51 00CO 8F 3¢ 1137 1583 MOVZWL #GROUP_TABLE_SIZE,R1 3 SET SIZE OF GROUP TABLE TO BE CREATED 
00000000" GF 16 11 1738 JSB G*EXESALOPAGED ; ALLOCATE REQUIRED AMOUNT OF PAGED POOL 
0 1142 175 BLBS R ; CONTINUE IF ALLOCATION IS SUCCESSFUL 
50 0124 gf C 114 1226 MOVZWL ass _INSFMEM,RO 3 OTHERWISE SETUP RO WITH ERROR CODE 
0126 1 114A 1736 BRW 40$ 3 AND EXIT 
54 Q0000000'GF DO 114D 1757 28: MOVL G*SCH$GL_CURPCB,R4 ; RETRIEVE PCB ADDRESS 
00000000'GF 16 1134 1738 Js G*LNMSLOCKW ; LOCK LOGICAL NAME MUTEX FOR WRITING 
00000021"EF 51 D1 115A 1760 CMPL R1,LNMTHSL_BYTES+- ; IS THERE ENOUGH QUOTA IN THE SYSTEM 
1161 1761 LNM_SYSTEM_DIR_LNMTH 3 DIRECTORY TABLE? 
17 15 1161 176¢ BLEQ 4$ ; CONTINUE IF ENOUGH QUOTA 
50 52 v0 1163 176 MOVL R2,RO ; SETUP TO DEALLOCATE THE PAGED POOL 
00000000'GF 16 1166 1764 JSB G*EXESDEAPGDSIZ 3 DEALLOCATE IT 
00000000'GF 16 116C 1765 JSB G*LNMSU ® ; UNLOCK THE LOGICAL NAME MUTEX 
50 224C 8F 3 1178 1766 MOVZWL #SS$_EXLNMQUOTA,RO 3 SETUP REASON FOR PREMATURE TERMINATION 
OOF9 1 7? 176? BRW 40$ ; AND GO RETURN TO CALLER 
58 52 D0 117A 1769 4$: R2.R8 ; SAVE ADDRESS OF STORAGE ALLOCATED 
62 FSDE CF 51 28 1170 1770 MOVC3 R1,GROUP_TABLE, (R2) ; FORMAT THE LOGICAL NAME TABLE(S) 
54 00000000'GF 00 1183 1771 G*$CHS$GL~CURPCB,R4 3 RETRIEVE PCB ADDRESS 
oo9c = 31 Ht 44 BRWwW CREATE_GTABLE ; GO CREATE GROUP TABLE 
110 a EXESCRE_JGTABLE:: 
118D 1776; 
118D 1599 3 ALLOCATE PAGED POOL FOR THE GROUP AND JOB-WIDE LOGICAL NAME TABLES. AFTER 
118D 1778 ; ALLOCATING SUFFICIENT PAGED POOL, WRITE LOCK THE LOGICAL NAME MUTEX, AND MAKE 
118D 1779 : SURE THAT THE PARENT LOGICAL NAME TABLE, THE SYSTEM DIRECTORY TABLE, HAS 
118D 1780 ; SUFFICIENT QUOTA FOR THE CREATION OF BOTH LOGICAL NAME TABLES AND FOR ANY 
118D 1781 ; SEPARATE QUOTA THAT WILL BE RELEGATED TO THEM. IF THE SYSTEM DIRECTORY TABLE 
118D 178¢ 3 DOES NOT CONTAIN SUFFICIENT QUOTA THEN EXIT IMMEDIATELY WITH THE APPROPRIATE 
1180 178 ; ERROR; OTHERWISE, THE BLOCK OF STORAGE THAT HAS BEEN ALLOCATED FOR THE LOGICAL 
i p 1 4 : NAME TABLES IS FORMATED. 
118D 1786 © 
51 0180 8F 3C 3 17 ; MOVZWL #SO_ALLOC_SIZE,R1 ; ASSUME BOTH TABLES WILL BE CREATED 
00000000 GF 16 11 é 17 8 JSB G*ERESALOPAGED ; ALLOCATE REQUIRED AMOUNT O 
0 f 1198 178 BLBS RO,1 : CONTINUE IF ALLOCATION IS SUCCESSFUL 
50 0124 8F ¢ 11 1790 MOVZWL #SS5_INSFMEM,RO ; OTHERWISE SETUP RO WITH ERROR CODE 
2—E sot VA 1791 BRB 10$ 3 AND EXIT 
: VL L_CU . 3 V 
54 Q0000000'GF D0 11A 1598 1$ MO G*SCH$GL_CURPCB,R4 RETRIEVE PCB ADDRESS 
00000000'GF 16 1a as JSB G*LNMSLOCKW ; LOCK LOGICAL NAME MUTEX FOR WRITING 
30 51 37 C1 11AF 1796 ADDL3 R7,R1,RO ; DETERMINE TOTAL AMOUNT OF QUOTA 
00000021 "EF 0 01 1183 179 CMPL RO, LNMTHSL_BYTES+- : IS THERE ENOUGH QUOTA IN THE SYSTEM 
11BA 1798 LWA_SYSTER_DIR_LNATH : DIRECTORY TABLE? 
17 15 11BA 179 BLEQ 0$ : CONTINUE IF ENOUGH QUOTA 
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PROCSTRT = PROCESS STARTUP AND INITIALIZATION 16-SEP- 1: AX/VMS Macro Vv04-00 Pa 9 P! 
fivee th EXESCRE_JGTABLE - CREATE GROUP AND JOB-W 14-SEP- 198 $}: 99: $3 YeYS. SRCIPROCSTRT.MAR; 3 - dp v( 
52 pO 118C 1 MOVL ; SETUP 19, DEALLOCATE THE PAGED POOL 
900 00° GF "6 11BF 1 9 JSB GFE Ke sve ApGoSI2 t DEALLOCA 
0 GF 16 #115 1 ¢ JSB ga NMSUNL : UNLOCK tHE OGICAL NAME MUTEX 
5 “¢ F 35 11(B 1 MOVZWL #s3$_ EXUNMOUOTA, RO ; SETUP REASON FOR PREMATURE TERMINATION 
OA0 1 110 : 108: BRW ; AND GO RETURN TO CALLER 
58 32 1103 1 208: MOVL 3 SAVE ADDRESS OF STORAGE ALLOCA TED 
6 F585 CF 28 1106 1 5 MOVC3 nicer gGROUP_ TABLE, (R2) ; FORMAT THE LOGICAL NAME TABLE(S) 
g, 00000000'GF 0D 110 08 MOVL “§CHS$GL~CURPCB,R4 ; RETRIEVE PCB ADDRESS 
1163 1810; 
113 1811 ; FIXUP THE LOGICAL NAME BLOCK FOR THE JOB TABLE THAT IS BEING CREATED, AND 
11£3 1812 ; THEN INSERT IT INTO THE APPROPRIATE HASH BUCKET OF THE SHAREABLE LOGICAL NAME 
11E3 1813 ; HASH TABLE. THIS FIXING UP OF THE JOB TABLE'S LOGICAL NAME BLOCK INCLUDES 
113 1814 ; APPENDING TO THE "LNM$JOB_"’ ASCII STRING ALREADY PRESENT WITHIN THE NAME FIELD 
11E3 1815 ; OF THE LNMB, THE ASCII EQOIVALENT OF THE JIB‘S HEXADECIMAL ADDRESS. A POINTER 
q16 16 > TO THIS ASC{I EQUIVALENCE IS PASSED TO THIS ROUTINE IN R7. 
1163 1818 ° 
51 00CO C8 9E 11€&3 1819 MOVAB JOB_TABLE(R8), : RETRIEVE ADDRESS OF Rt TABLE'S LNMB 
1A Al 6A 7D 1168 1820 MOva (R10) ,LNMBST WAMESOCRI) ; MOVE ASCII HEX JIB ADDR INTO NAME FIELD 
00000000'FF oO 11E 18 1 MOVL @LNMSAL_HASHTBL,- : HOVE THE AD DORESS OF THE SHAREABLE 
OOE8 C8 11F2 1 ¢ OB_TABCE_LNMTH+= 3 LOGICAL NAME HASH TABLE INTO THE JOB 
11F 18 LNATHSL AASHCRB) ; TABLE'S TABLE HEADER 
0110 C8 «SE «(11F5 «1824 MOVAB TABce _ORB(R8) ,- ; MOVE THE ADDRESS OF THE JOB TABLE'S 
OOEC C8 11F9 18 5 JOB TABLE “LNMTH+= ; OBJECT RIGHTS Brock INTO THE JOB 
11FC 1826 LNATHSL LORE CRE) ; TABLE'S TABLE HEADER 
OOFO C8 «451 pO 11FC 1827 MOVL R1,J08_ TABLE_LNMTH+- ; MOVE THE ADDRESS OF THE JOB TABLE'S 
4 i 8 TT te _NAME TRB) ; LNMB INTO THE JOB TABLE'S TABLE HEADER 
OOBC C4 DO 1201 1830 MOVL PCBSL_UIC(R4),- ; MOVE THE PROCESS” s ovis INTO THE 
0110 C8 1205 1831 JOB_TABLE_ORB+- ; APPROPRIATE FIELD OF THE JOB TABLE'S 
1208 1 3¢ ORBSL_OWNER(R8) : OBJECT RIGHTS Btock 
0138 C8 «67 (1 08 1 ; CLRO JOB_ TABLE_ORB+- ; SET INITIAL NULL ACL 
o¢ é ORBSL_ACL~ COUNT (R8) 
57 oS 120C 1 $ TSTL R7 ; IS JOB TABLE QUOTA POOLED? 
17113 «1 of 1 BEQL 308 : IF SO THEN GO INSERT L 
00E7 cg 9E 1210 1 g MOVAB JOB_TABLE -LNMTH(RB) , - 3 OTHERWISE SET UP THE JOB 
0100 ¢ 1214 183 JOB" TABLE ~LNMTH ; TABLE HEADER AS THE QUOTA aot b es FOR 
1217 1840 LNMTHSL GTABLE CRB) ; THE JOB 
0104 C8 457 DO 1217 1841 MOVL R7, 08 TABLE _LNMTH+ : SET THE BYTE LIMIT FIELD TO THE 
121c 1 4g LWATH C BYTESLN(RE) ; INITIAL AMOUNT OF JOB TABLE QUOTA 
0108 c8 «657)=— os \¢ 184 MOVL 408 TAB E LNA : SET THE BYTE REMAINING FIELD TO THE 
1 1844 Peate C "BYTES Ra)” : INITIAL AMOUNT OF JOB TABLE QUOTA 
52 D4 1221 1845 308 CLRL ; NO SPECIAL INSERTION ATTRIBUTES 
00000000'GF 16 3 4g JSB G*LNMSINSLOGTAB ; APPROPRIATELY INSERT LNMSGROUP_xxxxxx 
1229 1848 ; 
1229 1 28 ; FIXUP THE LOGICAL NAME BLOCK FOR THE GROUP TABLE THAT IS BEING CREATED, AND 
1229 1850 ; THEN INSERT IT INTO THE APPROPRIATE HASH BUCKET OF THE SHAREABLE LOGICAL NAME 
1 3 1851 ; HASH TABLE PROVIDED A TABLE FOR THAT GROUP DOES NOT ALREADY EXIST. THIS 
1 1 ¢ ; FIXING UP OF THE GROUP TABLE'S LOGICAL NAME BLOCK INCLUDES APPENDING TO THE 
1229 1 2 : “LNMSGROUP_"* ASCII STRING ALREADY PRESENT WITHIN THE NAME FIELD OF THE LNMB, 
1229 1854 ; THE ASCII EQUIVALENT OF THE "‘OCTAL GROUP" TH — PROCESS BELONGS TO. A POINTER 
3 33 ; TO THIS ASCII EQUIVALENCE IS PASSED TO THIS ROUTINE IN R8. 
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01000000 8F 
00000000 ' GF 
50. 

9 


50 8 
00000000 ' GF 


00000000 * GF 
50.0 
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00000000 


ORBSL_ACL_ EOUNT (RB) 
MOVL #LNMSM_CREATE_IF,R2 
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- CREATE GROUP AND JOB-W 1 mies 9:99:43 SYS.SRCIPROC OCSTRT.MAR: 3 v iD 
CREATE_GTABLE: : 
MOVL  R8_R1 ; SETUP TO INSERT THE GROUP TABLE'S 
MOVL (R11) .LNMBST_NAME+11(R1); APPEND THE ASCII “OCTAL GROUP 10 thee 
MOVW 4(R115,LNMBST NAME+1 Rvs “LNMSGROUP_*’ ALREADY IN THE NAME FIELD 
MOVL  @LNMSAL Nag Ps - ; MOVE THE ADDRESS OF THE SHAREABLE 
GROUP_TABLE at ; LOGICAL NAME HASH TABLE INTO THE GROUP 
LNMTHSL_HASA(RB) 3; LOGICAL NAME TABLE’S YABLE HEADER 
MOVAB GROUP _TABLE_ORB(R8) ; MOVE THE ADDRESS OF THE GROUP TABLE'S 
TABL TH+= ; OBJECT RIGHTS BLOCK INTO THE GROUP 
Tg.) win i : TABLE'S TABLE HEADER 
MOVL noe ARE Fab NATHS= ; MOVE THE ADDRESS OF THE LNMB INTO THE 
enh AME CRE : GROUP TABLE'S TABLE HEADER 
MOVW = PCBSW GRP (RA) - ; MOVE THE PROCESS'S GROUP 
GROUP ABLE nD : INTO THE APPROPRIATE FIELD OF THE 
BSL OWNER? (RB) ; GROUP TABLE'S OBJECT RIGHTS BLOCK 
CLRQ  GROUP"TABLE + SET INITIAL NULL ACL 


; GROUP TABLES ARE INSERTED CREATE_IF 
; APPROPRIATELY INSERT LNMSGROUP_xxxxxx 


; DID THE GROUP TABLE eit oe 


; DELETE Nw LNMB FOR WHAT WOULD HAVE 
; BECOME A GROUP LOGICAL NAME TABLE 


: UNLOCK THE LOGICAL NAME MUTEX 
; SUCCESS 


JSB G*LNMSINSLOGTAB 
CMPW #S$S_NORMAL ,RO 
BNEQ 35$ 
MOVL  R8,RO 
JSB G*EXESDEAPAGED 
: UNLOCK THE LOGICAL NAME MUTEX AND RETURN STATUS. 
35$:  JSB G*LNMSUNLOCK 
MOVZBL #1,RO 
40$:  RSB ETURN 
.DSABL LSB 
END 
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Symbol t A emecce caphanel naan oh ag 12786621 $8e 9:99:93 SYS.SRCJPROCSTRT.MA 
Symbol table somes ot 
geeeeere 
sti 2 ; EXESDEAPAGED eteceete 
tts 2 0 EXESDEAPGDSIZ mene o 
EARS — iC R 02 EXESEXCEPTABLE eee 
cnr : EXESEXIT | 00000E73 RG 
Seat PET cine tes, 
H 3. erenee 
ety = Bopeaubs FHEEGL POBRL coe 9, 
z erent 
CREATE TABLE, ; 1 é ® EXESGQ-SYSTIME a os ag 
CREM eee 6 $i ED R EXESIMGDMP_EXEC rey AG 
CTLSAL aeeneeee =X EXESIMGDMP- MERGE 0 FED RG 
eTLgAL Tspvete eeeeneee =X EXESPROCIMGACT OODBE RG 
ETLSCCERE. C00 ae | EXESPROCSTRT 9990000 RG 
CTLSC-KRP_COUNT pocseees 9 EXESPROCST SS000r3S 
CTLSC-KRP-SIZE peeoeese | § EXE SRMSE XH eereesi 
CTLSGB_MSGMASK pees: °s EXESV, So00r78 
CTLSGB_SSFILTER peoqnees | EXEC AR sat 8 
CTLS$GL—-CCBBASE cneoeen i EXE P : 2 a i 
CTLS$GL-CREPRC_FLAGS once et OS 3 5 ee a009088 z 
He HIN, St a Carr ate - $33808F 
SIL SerTRFCAST sepenene 8 SROUP TABLE bine : 200008 
CTE Ser TAF PENN eeeeeeee =X GROUP-TABLE-ORB_SIZ = 900000 
citsercenp eeeeeeee =X 6 GROUP~ TABLE- SIZE = pongncy 
ETL Eet ERP FL eeeeeeee =X GROUP XEND SIZE easy i 
gene 
stee temisse? eras FE ocean met yg 
CTLS$GL-LNMHASH me st LACSAU_VECRES ms 1 
CTLS$GL_PCB pocoeeee ce {ACSAU-VECSE Se 
EILSCLZPRE teeeeeee =X 0 IACSGL_IMAGE_LIST coeeeee ot 
Heer ae ee et 
ere tererene x 5 = 2008 
“USREHAE 1ACSM_ ERGE = 
CTL Sct-USREHAE posenene x 8 ioe oe FLAGS : 20000 
ETL Set~USRUNDU teeneeee =X IHDSW ACTIVOFE 9900002 
CTLS$GL_USR pasenene fl Inncea saute 
CTL$GQ~ALLOCREG sovewerdal ay 2009534 
Hetty gms | RSI : Risse 
ci S6e. eereeeee re x = 000000¢ 
CTL$GQ-PROCPRIV pectess a a {ReACTS-hpRBU = 2090001 
FTL SeUT NA eteeeeee =X IMGACTS_IMGCTL = 90000010 
cist SERNAME eeeneree =X : IMGACTS~INADR : 4 
NAR MGACTS_NAME 
a i rae : aes 
bik. 5 AED R 02 IMGACT_TNADR 024 
DYN = 4 IMGACT-RETADR 9 : : 0 
DYNSE =O = 4 IMGDMPRAM R 
DYNSE “Ren = 38 IMGNAM . 
PXESACOP‘P etertere IMPSL_IOSEGADDR : 4 
Sesto eeeerere =X JIBSS"ACCOUNT : 
EXESCATCH AL E80 RG JIBSS"USERNAME . ¢ 
EXESCATCH ALL RG 11bee-een 
EAESERETOTABEE j RG JIBST_USERNARE . 
EXESCRE” 118D RG . 
RE JGTABLE . fm 
EXESE SYSCFN teeerert 
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JOB_TABLE 
JOB “TABLE _LNMTH 
JOB TABLE “ORB 


$ 
PIS_IMAGPR 
JPIS_PHDFLA 
sis PROCPR 
JPI-FLAG 
JP17pROC 
LNMSAL_HASHTBL 
ren I TOLSEEP 
LNMSINSLOGTAB 
CNASACREATE_IF 
LNMSUAL ~ 


NMTHSL—ORB 
LNMTHSL_PARENT 
LNMTHSL~QTABLE 
LNMTHSL~ SIBLING 
LNATHSA”DIRECTORY 


L 
LNMX$C~ TABLE 
LNMX$M~ TERMINAL 
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PHOSW_WSAU 
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piosen-t MSEXH 


PQB NAME 
PQB$S_CLI~ TABLE 
PQB$S =DDSTRING 


—INPU 
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POB$T~OUTPUT 
ptr SA i 
v~ IMGDMP 
POBSW" FLAGS 
PL 
ESS 
PROCESS SIZE 
CPRID 
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PROCSTRT = PROCESS STARTUP AND INITIALIZATION 16-SEP-1984 01:00: AX/VMS Macr 4- 
Symbol table 1e=$Eb=198 92:99:33 ERYSSRCTBRoes HRT nae:s =P" Hf, 
SYSSOUTPUT_SIZE = 00000128 
SYSSPUTMSG eeneeree =X 
SYSSRMSRUNDWN aeereree YX 
SYSSSETEXV eeeeenee GX 
SYSSSETSFA eererere GX 


uae a 


XQP$GL_DZRO eerereee = §6X p 
XQPS$GL_SECTIONS eereeeee = § YX 
XQPMERGE 08 FC R 8 
XQP_NAM FDD R 
XQP"NAMS1Z = 0000000A 

$e ewe eno om enw an ws + 

! Psect synopsis ! 

tomer see ce ee sew en + 
PSECT name Allocation PSECT No. Attributes 
- 4ABS . 4 44 49 ( 0.) 00 ¢ OO.) NOPIC USR CON LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 444 ( 6e°-3 83 ( ») NOPIC USR CON S$ LCL NOSHR EXE RD WRT NOVEC BYTE 
YYPROCSTRT 00001274 ( 4724.) ¢ { ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC 21 
AE XENONPAGED 00000011 ¢ 17.) O3 ¢ ) NOPIC USR CON REL LCL NOSHR EXE’ R&D WRT NOVEC BYTE 

Soo + 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
nitialization 7:00:00. :00:00. 
Initializati 30 0:00:00 0:00:00.70 
Command processing 112 0: 3: 9. 0: 0:9 38 
Pass 1 601 0:00:27.11 2:01:35. 
Symbol table sort 9 00:00: 3-82 8 : 6:19. 9 
ass 36 3: 706.72 :00:23.84 
Symbol table output 4 :00:00.31 00:00:01. 
Psect synopsis output 0:00: 23 00:00:00.1 
Cross-reference output S48 - 0 Ba: 0: 2-? 
Assembler run totals 115 :00:38.61 0:02:15.41 


The working set Atate was 2250 pages. 

154901 bytes (303 pages) of virtual memory were used to buffer the intermediate gpde. 

There were 130 pages of symbol table space ol tocated to hold 2571 non-local and 54 local symbols. 
1894 source Lines were read in Pass 1, produc ing object records in Pass 2. 

54 pages of virtual memory were used to define 52 macros. 
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eng yee eagnemie mee nergy 


! Macro Library statistics ! 


jnanavensussseueauscsousennat 


Macro Library name Macros defined 
-8255SDUA SYS.OBJJLIB.MLB;1 12 
SoSeSDUASBEESYSL IBISTARCET ALB; 2 3 

TOTALS (all Libraries) 48 


2738 GETS were required to define 48 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:PROCSTRT/OBJ=OBJ$:PROCSTRT MSRC$:PROCSTRT/UPDATE=(ENHS$:PROCSTRT) +EXECML$/LIB 
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